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ABSTRACT: 


This module contains the DEQNA driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


AUTHOR: 


Rod Gamache 


MODIFICATION HISTORY: 
v04-001 paged 


Fix additional buffer quote test. 
Add support for MicroVAX I] 
Add some per ternence enhancements similar to those 
eqcer to the DEUNA device driver. 
Fix loopback mode. 
Get vector ada-ess from IDB. 
Fix receive length word set up. 
Fix timeout errors. 
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; Local symbol definitions 
Define the following symbol to enable 


Define the followin 


3 syeeet va change 
perform POLLing of the 


Argument List offsets for 010 
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Define ABDs 

Define AST control block 
Define CANCEL reason codes 
Define CCB offsets 

Define CRB 

Define CxB 

Define device classes and types 
Define DDB 
Define device characteristics 
Define DPT 


Define dynamic data etructures 


Fast latertace definitions 

Fork block definitions 

Define ID8 

Define 1/0 function codes 
IPLs 


e JIB 
porine SYSTEM MESSAGES 


Defin k Management Codes 


OBJECT'S. RIGHTS BLOCK OFFSETS 
Define PCB 


Processor register definitions 


Privilege bit definitons 
Define system PTEs 

Define S$ rxaten Status Codes 
Define TQE offsets 

Define UBA symbols 

Define UC 

Define Virtual ateress bits 
Define CRB VECTO 
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Define DECnet detat ink characteristics 


use of point-to-point mode 


; Enable use of point-to-point mode 


the RING INVALIDATION test to 


; Enable POLL scanning of CSR's 


: Parameter 1 

; Parameter § 

; Perameter 

; Parameter 4 

; Destination/Source address 
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; Local macros 
MACRO sorely VAL FLAG 


eNTYPE VAL 

-1F EQ 2 _$$_=-*x0EF> 
IF NOF VAL 

+? S*@VAL,FLAG,.+1 
IF LT <VAL-8> 

a Fs @<1@VAL>,FLAG 
BBSS #@VAL,FLAG,.¢1 
-ENDC 

-ENOC 

5 


VAL .FLAG,.*1 
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; Constants 
$e0u = BROCST} <*XFFFFFFFF> «©; Broadcast address 
$EQU BROCST2 <*XFFFFD> ; eee 
$EQU MAX_C_ALT 12 ; Maximum number of multicast addresses 
SEQU MAX_C_XMT & ; Maximum number of entries in XAT ring 
SEQU MAX_C_RCV $ ; Maximum number of entries in RCV ri 
$EQU MAX_C_XMTUVI ; Maximum number of XMTs on micro-VAX 
$EQU MAX_C_RCVUVI 5 ; Maximum number of RCVs on micro-VAX | 
$EQU MAX-PRT SIZE 1500 : Size of maximum Ethernet user data 
SEQU xQ_C_HERDER 14 ; Size of Ethernet header 
by KQ_C_CRC 4 : Size of Ethernet CRC 
QU xQ_C CNTSIZ 2 ; Size of packet count fieid 
SEQU MAR_BUFSIZ_ UV1 MAX_PKT_SIZE*xO_C_HEADER 
$EQU UV1_BUFFER AREA <<MAX_C"XMTUV1+MAR_C_RCVUV1>@MAX_BUFSIZ_UV1> 
SEQU MAX~C_CHAIR 1 ; Maximum number of extfa segments in 
; a receive buffer chain 
$EQU NI_CTR_PROTYP <*x0260> ; Ethernet read counters protocol 60-02 
$EQuU NI_CTR_READ 9 ; Read counters request function 
$EQuU NI_CTR_REPLY 11 ; Read counters reply function 
$EQU INIT_C_QUOTA Soren _PuT Size ; Allow for 6 of the largest buffers 
$SEQU INIT C_AQUOTA ; Allow for 2 additional bufrers 
$EQU INIT C BUFSIZE 128 ; Size of init (setup mode) buffer 
SEQU DSCSA_POINTER 4 ; Pointer to data in buffer descriptor 
$EQU MIN_PRT SIZE 46 ; Size of user data in a runt packet 
$EQU = TQE“C_DELTA 2 ; 2 second timer interval. 
$EQU = TOE-DELTA TOE C_DELTA®10000*1000 ; Delta intervat (in 100 nsec? 
48 SEQU RESTART DELTA 3*10000*1000 =; RESTART interval - 3 Seconds 
1 $EQU XMT_C_TIM 6 ; XMITS must take less than 6 seconds 
$EQU mT TIA <<XMT_C_TIM#2>/2> 
$EQU xQ_C_ADDRCV 64 ;_Size to add to received packets 
$EQU XQ _C_STPRO <*x0660> 3% PT-TO-PT Starting protocol type 60-06 
$EQU 1PC$_xQ_F IPL 8 > Fork IPL 
$EQU IPL$_xXQ_DIPL 21 ; Device IPL 


ee - -—-—4 
| 
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0 78 ; seeeeesessssssseeesser= 
0 79 ; 
0 0 .MACRO CLRBIT VAL FLAG | 
00 1 NTYPE § VAL 
38 ¢ -1F EQ 2 $8 _-*xOEF> | 
8 IF NDF VAL | 
0 4 BBCC S*#VAL,FLAG,.+*1 
4 5 LFF 
000 6 IF LT <VAL-8> 
4 7 BICB @<1QVAL>, FLAG 
$609 5 aace @VAL,FLAG,.¢1 
VAL,FLAG,.* 
$009 0 -ENDC 
0000 91 ~ENDC 
0000 3 LFF 
0000 .] BBCC VAL, FLAG,.¢*1 
0000 94 ~ENDC 
0000 95 .ENDM  CLRBIT 
0000 96 ;: 
0000 97 : SSssssessssssesesezerses 
0000 98 ; 
0000 99 MACRO INCC COUNTER, CONTEXT=L,?L 3; Increment counter 
0000 00 INC’ mee we COUNTER 3; Do Increment 
0000 01 : Br if no carry set 
0000 3 DEC’ CONTEXT COUNTER 3 Leave at maximum value 
0000 03 L: 
0000 04 - ENDM INCC 
0000 05; 
0000 06 : sesesscecscssssesessesesecs 
0000 07; 
0000 308 [MACRO CNTR CURCNT COUNTER, CONTEXT=L.?L_ ; AccumLate counter | 
0000 09 ADD * CONTEXT CURCNT, COUNTER : Do addition 
0000 10 : Br if no carry set 
44 iy MNEG* CONTEXT #1, COUNTER ; Leave at maximum value 
0000 18 ~ENDM CNTR 
0000 4; 
0000 1§ s seessessesesesesssesess 
0000 16 ; 
0000 17 .MACRO PUSHQ ARG ; Push a quadword 
0000 18 va ARG,-(SP) ; Save argument on stack 
000 19 .ENDM PUSHQ 
4 y 3 
$000 +t 
0000 -MACRO POPQ ARG : Pop a quadword 
0000 4 va (SP)+*,ARG ; Restore argument 
209 5 .ENDM POPQ 
B § : SSsssssssssssssssssssss 
0 § -MACRO PARAM TYPE, OFFSET, WIDTH, MIN, MAX, INVALID, BASE=UCB,STRING,- 
1093 0 SIZE, CHECK=YES 
$00 § : Macro to generate the parameter tables 
0000 ; 
0000 4 ; Inputs: 
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> 3 
09 § ; TYPE = Parameter type 
0 : OFFSET = Offset in UCB/CDB to current value 
00 3 3 WIDTH = Width of field in UCB/CDB (B,W,L) 
0000 3 MIN = Minimum value parameter is allowed to take 
i 40 ; MAX = Maximum value parameter is allowed to take 
00 41 ; INVALID = Invalid flags in status word 
4 4g 3 BASE = Data base (CDB,UCB) 
000 45 ; STRING = Parameter is a string value 
0000 44; SIZE = Maximum size of string pacenecer in bytes 
4 a2 3 CHECK = Comparison is needed (YES,NO) 
$009 23 -IF BLANK type 
0000 48 «WORD 0 
0000 49 - 1F FALSE ; BLANK type 
a4 29 $$Styp = type & prm_typ_m_code : Isolate type code 
0000 26 tik = 0 
0000 5 - LIF NOT_BLANK <invalid>, $$$flg = $$3$flg!prm_fia_m_invalid 
0000 354 LIF IDN"<check><YES>, $$$flg = $$$flg!prm_flG_m_check 
44 336 - LIF IDN <base><CDB>, $$$flg = S$$$flg!prm_Flg_m_cdb 
0000 57 -IF BLANK string 
0000 58 
0000 59 -WORD $$$typ 
0000 60 - IT 1F NOT BLANK <min>, $$$flg = $$$flg!prm_flg_m_min 
0000 61 - LIF NOT BLANK <max>, $$$flg = $$$flg!prm_flg_m_max 
0000 66 -BYTE  $$$flg 
0000 6 $$$off = offset & prm_off_m_value : Isolate offset only 
0000 364 $$$wid = 0 ; ' 3 Set null width 
0006 65 «LIF IDN <width><B>, $$$wid = <laprm_off_v_width> 
0000 66 LIF ION <width><W>, $$$wid = <gSpraot i vawidth> 
0000 67 ~LIF IDN <width><L>, $$$wid = <Saprm_off_v_width> 
0000 68 -WORD $$$off!$S$$wid 
0000 69 - TIF NOT_ <min>, WORD min 
0000 70 ~ LIF NOT BLANK <max>, WORD max 
44 4 Line_prm_bufsiz = lLine_prm_bufsiz + 6 
4 73 - IF FALSE ; BLANK STRING 
0000 75 «WORD $$$typ!prm_typ_m_string ; Indicate a string parameter 
9000 $76 sw ' 
0000 7 $$$off = offset & prm_off_m_value ; Isolate offset only 
4 4 $$$wid = <size @ prm_off_V_width> & prm_off_m_width ; Get max allowed 
7 $$$siz = <$$$wid sera ott vawidth> 
44 0 «WORD $S$$off!$$Swid . 
4 1 Line_prm_bufsiz = Line_prm_bufsiz + 4 + $$$siz 
44h $ -ENDC ; BLANK STRING 
000 5 - LIF NOT_BLANK <invalid>, .WORD invalid 
i $ -ENDC ; BLANK TYPE 
00 8 .ENDM PARAM 
8808 7 3 
6 4 Q 3 ssssssssssssesssssssses 
00 91; 
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OFSET SIZE,OFFSET, BASE 

- IF IDN <base><LINE> 

“pee cdb_‘size'_‘offset’ 
“WORD ucb$"size’_x0_ ‘offset’ 
-ENDC 


“MACRO Coyeres TYPE ,WIDTH=16 Aig |e 0. ater stas BITMAP 


-LIF NDF ‘base’ ctr_size base’ ctr size = 0 
.LIF NDF "base’ “ctr “pitt. base’ ctr_bufsiz = 0 
IF IDN <base><CINES 

$$$typ = nmaSc_ctlin_'type’ & nmaSm_cnt_typ 


FF 
iBstyo = nmaSc_ctcir_"type’ & nmaSm_cnt_typ 
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END 
issvia = 0 ; Set reserved meek width 
LIF IDN <width><8>, $$$wid = <19nmagy cnt a 
- LIF IDN <width><16>, $$$wid = <2anma$v_cnf ie 
LIF ION sy tgsho<ee 5 ee = <3anma$v_cnt_wid> 
LIF EQ S$$$wid, .E z InvalT?d bit width value 
ta = 0 
LIF ION ee suig's = nma$m_cnt_map 
-WORD nmaSm_cnt cou: $$8wid: $$typ'$$Smap_ 
LIF IDN <uidth><B>, OF SET B. ‘offset, ‘base 
LIF IDN <width><16>, OFSET W, ‘offset, base 
elif IDN <width><32>, OF SET L, offset, "beeg 
‘base’ _ctr_size = *base' -ctr size +1 ;: Tally one more entry 
"base’=ctr-bufsiz = ‘base’ cfr_bufsiz + 2 + <width/8> 
-1IF I6N <Bitmap><MAP>, ‘base'-ctr_bufsiz = ‘base’ _ctr_bufsiz + 2 
COUNTE 
sess Ssssssssssssssssses 


MOPCTR WIDTH=16, OF FSET,B1TMAP 
Sh a. NOF F mop. ctr_size, mop_ctr_size = 0 
ssiuid = width/8 

N <bitmap><MAP>, $$$map = 187 
BLANK <offset> 
DN <width><8>, OFSET B, ‘offset, LINE 
ON sige OFSET UW, ‘offset. LINE 


I 
I 
ION <width>< OF SET L; ‘offset. LINE 
ctr_size tr_size + $$$wid 
ID 


T_BLANK 
; End of table 


C REG, CONTEXT=W, ?L SKIP FIELD 
: Br if field not present 


-oOo 


o¢,t 


$swid ; counter “width in bytes + BITMAP FLAG 
a° Sah SealdS mop_ctr_size = mop_ctr_size + 2 
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449 TST* CONTEXT (REG) + 
450 L: 
451 .ENDM SKIP 
$26 3 
45 g Sessssssssssssssssseses 
454; 
455 .MACRO S$DISPATCH, 
$28 SS: 
45 . 
$38 -MACRO $DSP1,$DSP1_1 
45 . IRP $DSP1_2,$0SP1_1 
460 $DSP2~ $DSP1—2 
461 ENDR 
t6¢ -ENDM $DSP1 
464 -MACRO $DSP2,$DSP2_1,$DSP2_2 
465 .=<$D5P2_1-AND*2 + § 
466 -WORD S$DSP2_2-S 
467 -ENDM $DSP2 
is 
470 -MACRO $BND1,$8ND1_1,$BND1_2,$BND1_3 
471 $BNDZ $95N51_1,$8ND1_2 
oe .ENDM 
474 -MACRO $BND2,$BND2_1,$BND2 3 
475 -lIF $BND2_1,$8NB2_2-., 
276 -ENDM $BND2 
478 -MACRO S$BND $BND_1,$BND_2 
479 . IRP $BND-3,<$BND_2> 
480 SBNDT  $BND_1,$BND_3 
481 .ENDR 
48 -ENDM $BND 
48 
484 .=0 
485 272: 
486 $SBND GT, <VECTOR> 
487 MX: 
488 $SBND LT, <VECTOR> 
489 MN 
rh .=SS 
3 CASE’ TYPE INDX , #<MN=27>,NMODE *<MX-MN> 
494 REPT MX-MNG1 
495 ~WORD <MX-MND*t2 + 2 
49 .ENDR 
49 
49 .=5S 
49 
9 $DSP1 <<VECTOR>> 
5 -=<MX-MND>*2 + S$ + 2 
4 .ENDM $DISPATCH 
05 
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; Skip next field 
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00000021 


00000038 


00000046 


0000003¢ 


0000003¢ 


00000038 


0000003A 


0000003C¢ 


09000040 


00000044 


00000040 


0000003C 


00000040 


00000094 


0000003A 


00000090 


00000060 
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7; 

gi Overlays of IRP 

: SDESINI IRP 

= IRPSW_FUNC+1 

; Sper TRPSB” XQ_FUNC 

5 . = IRPSL_M DIA. 

: DEF  IRP$W_XxQ_RID 

DEF  IRPS$B~ xa “SLOT 

: DEF §IRPSB“XQ"RING 
20 
5 


= IRP$Q_STATION+6 
DEF IRP$B_XQ_DATAP 


= IRPSL_MEDIA+4 
= IRPSL_MEDIA+4 
SDEF IRPSL_XQ_DATBUF 
= IRPSL_M 
. = IRPS MEDIA+2 
SDEF iRPS 


- = IRPSL_MEDIA+4 
SDEF IRPS$L_xQ_USERBUF 


= IRP$Q_STATION 
$pEF IRPSL_xQ_P2BuF 


1 

£ 

& 

5 

? 

8 

9 

0 

1 

gi 

4 

5 

? 

8. 

H 

1 , = IRPS$Q_STATION+4 

¢ SDEF IRPS$SW_xQ_P2S17 
4 , = IRP$Q_STATION 

5 $pEF IRP$wW_xQ_CODE 
; 
8 
9 
0 
1 
§ 
4 
5 
; 
5 
0 
1 
3 


= JRPSL_MEDIA+4 
DEF IRPSL_xQ_MAP 


= IRP$Q_STATION 
DEF IRPSL_XQ_DGUNI 
DEF IRP$L_XQ"UPADR 


= IRPSL_RBUFH_AD 


DEF IRP$L_x0_SETUP 


IRPSL_MEDIA+2 
per ines 


$ 

= IRPSL_LBOFF 
Sper ss TRPSL 

= IRPSL_FOFL 


_%Q_SHR 


g-J0nn 138? } 
~SEP-1934 
GLOBAL 
-BLKB 1 
-BLKB 1 
-BLKB 1 
-BLKB 1 


$DEF IRP$L_XQ_SYSBUF .BLKL 1 


-BLKL 1 


P DIA 
SDEF TRPSu MQ_USERSIZ .BLKW 1 


W_XQ_STATUS .BLKW 1 


-BLKL 1 
-BLKL 1 
-BLKW 1 
-BLKW 1 
-BLKL 1 
‘Btky 
-BLKL 1 


W_XQ_PROTYP .BLKW 1 


-BLKL 1 


Se Se ee 
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QNA driver internal function code 


RCV/XMT request ID 
RCV/XMT mapping slot number 
RCV/XMT ring entry number 


XMT buffered data path number 
XMT system buffer address 


User RCV data buffer address 


User P2 buffer size on sensemode 


Completion status 


re 3, 


User Pl buffer address on sensemode 


User P2 buffer address on sensemode 


P2 return buffer size on sensemode 


Bad parameter code on startup request 


Diagnostics buffer mapping info 


Diagnostics buffer UNIBUS address 


Micro-process internal address 
Setup transmit buffer 


Protocol type for user 


Address of SHR structure for user 


voucOut ee ee eee Br2P2198e 0:30:52 LDRIVER.BOESRC TROD RS VER.MAR:T (3) 


SDEF IRP$C_xQ_STD -BLKL 1 ; End of ‘’standard’’ IRP 


4 
: 
; ie 
oe : 1 
7 <XMIT> = 3 
4 oF <R CV>,- ° 
64 <STOP>,=- 3 
4 re <CANCEL>,= Py 
4 <RESTART> ” . 
064 3 
064 3 
064 
0064 


: These are not really used as bit offsets - but as Values. 


-VIELD xQ FC, 0, <- 
<IRIT>, 


ip pet = driver internal function codes stored in IRPS$B_XQ_FUNC of IRP. 


sapere runes ton codes 
: ‘E43 ze 

: one t lomsaal 

; Receive request 

; Stop protocol 

; Cancel request 

; Restart PROTOCOL 


~ vatateaaet ; Change the setup mode 


i SDEFEND IRP 


End of IRP overlays 
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: ; Overlays of CXB 
§ SDEFINI CXB GLOBAL 
00000020 Ss CKBSL_SPAREI 


; NOTE: The CXB functions are the same as for an IRP (IRP$B_XO_FUNC) 


$vEF CRBSB_XQ_FUNC .BLKB 1 ; QNA driver internal function code 
00000022 1 -BLKB 1 3 SPARE 
0 SDEF CXBSW_XQ_RID ; RCV/XMT request ID 
91 SDEF CXB$B_xXQ SLOT .BLKB 1 3; KCV/XMT mapping slot number 
p ? 35 SDEF CXB$B_XQ_RING .BLKB 1 3; RCV/XMT ring entry number 
4 94 ; 
? B2 ; The following overlays are for transmits only 
00000024 0 4 $7 ; = CXBSL_SPAREO 
0024 599 : NOTE: The following two fields area overt ares. So if the Low 
+ : ond ; Bit is set, then the address is that of a UCB, else it's an IRP. 
0024 602 SDEF CXBSL_T_IRP ; Associated IRP address 
+ ; pat SDEF CxXBSL_T_UCB -BLKL 1 ; Associated UCB address 
0000003A 0028 605 . = CXBSC_HEADER-<XxQ_C_HEADER> 
a 98 SDEF CRBST_T_DATA -BLKB XQ_C_HEADER ; Standard Ethernet header 
004 608 ; 
Boe rst] ; The following overlays are for receives only 
00000008 0048 611 ; = CxB$B CODE 
yg 6s SDEF CRBSB_R_FLAGS .BLKB 1 ; Receive message flags 
0000001C O00C 614 . = CXBSL_END_ACTION 
O01 o12 SDEF CRBSWOR_NCHAIN .BLKW 1 z Number of buffers in chain 
00000014 OO1E $19 . = CXBSL_IRP 
a046 018 SDEF CRBSW_R_STS -BLKw 1 ; Receive status 
00000038 0016 620 . = CXBSC_HEADER - <XQ_C_HEADER+XQ_C_CNTSIZ> 
621 SEF CRBST_R_DATA ; Start of receive data 
6 § SDEF CXB$G_R_DEST -BLKW ; ; Destination node address 
E 625 SDEF CXBS$G_R_SRC -BLKW ; Source node address 
4 624 SDEF CXBSW_R_PTYPE .BLKW 1 ; Protocol Type 
625 SDEF exOST A AUSEROAT ; Start of user data 
? § DEF CXBSW_R_SIZE -BLKW 1 . Size of received message (if padded). 
6 
659 
650 
631 
652 


4 
SSSSSSSSSSSS 
PRERRRE rx 


SDEFEND CXB ; End of CXB overlays 
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Definitions that follow the standard UCB fields 


SDEFINI UCB GLOBAL Start of UCB definitions 


SSS SCe see sS. 


DODNA ARS WO OD NA NE O ODN UNE 
Pre 
—J 
wn 


00000098 - = UCBSC_NI_LENGTH ; Position at end of UCB NI extension 
SDEF UCBS$Q_xQ_QUEUES ; Message and 1/0 request queue heads 
SDEF UCBSQ_XQ_ SHARE .BLKQ 1 ; List of shared users 
SDEF UCBSQ_xQ_ ; Start of the 1/0 queues 
DEF UCBSQ_XQ_RCVMSG .BLKG 1 ; Receive messages completed 
UCBSQ_XQ_RCVREQ .BLKQ 1 ; Receive IRP waiting for messages 
SDEF UCBSQ_XQ_XMTREQ .BLKQ 1 3% Xmit IRP wait queue (PT-TO-PT) 
00000004 UCBSC_xQ_QUEVES = <.-UCBSQ_x0_QUEUVES>/8 ; Number of queue heads 


SDEF UCBSL_xQ_PID -BLKL 


s ; Starter's PID 
SDEF UCBSL_XQ_CPID .BLKL 


; Creator's PID 


Pieeiesmeteiciey 335 


=}. 1 ; 
: 1 : 
e6 SDEF UCBSL_xQ_AS1 -BLKL 1 ; Attention AST List 
C4 SDEF UCBSL_XQ_DEFUSR .BLKL 1 ; Default shared user (shared use only) 
;RNGOOO1 c8 SDEF UCBSL_xQ_CDB -BLKL 1 ; Address of CDB 
cc SDEF UCBSW_xXQ_ QUOTA .BLKW 1 ; Receive buffer quota 
: SDEF UCBSW_xQ_PROTYP .BiKw 1 ; Ethernet protocol type 
D SDEF UCBSB_xQ_SETPRA ; Start of parameter section 
D SDEF UCB$G_XQ_DES -BLKW 3 ; Destination address for shared user 
D SDEF UCBSW_XQ_HB -BLKe 1 ; Hardware buffer quota 
D SDEF UCB$B_xQ_ACC -BLK 1 ; Protocol access mode 
44 20) SDEF UCBSB_xXQ_SFN -BLKB 1 ; Number of receive buffers 
ODA 665 SDEF UCBSB_XQ_SHRPRM ; Start of “shared user’’ validated prms 
ODA 664 SDEF UCBSW_xQ_ -BLKY 1 ; Device buffer size 
DC 665 SDE UCB$B_XQ_PRO -BLKB 1 i; Protocol selection 
0D 666 SDEF UCB$B_XxXQ_PAD -BLKB 1 ; Padding mode 
DE 667 SDEF UCB$B_XQ_PRM -BLKB 1 ; Promiscuous mode 
ODF 668 SDEF UCBSB_xXQ_MLT -BLKB 1 ; Multicast (all) address state 
e9 6¢ SDEF UCB$B_xXQ_DCH -—BLKB 1 ; Data chaining on receives 
OOE1 671 SDEF UCBS$B_XQ_CDBPRM ; Start of settable parameters for CDB 
€1 672 SDEF UCBSB_XxQ_ -BLKB 1 ; Controller mode 
00000001 E 675 UCBSC_XQ_CDBPRA = .-UCBS$B_X0_CDBPRM 
00000008 : ore UCBSC_XQ_SHRPRM = .-UCB$B_XQ"SHRPRM 
E 676 SDEF UCBSG_XQ_PHA -BLKW 3 ; User defined physical address 
00006007 : of UCBSC_xXQ_SETPRM = .-UCB$B8_xQ_CDBPRM 
OF $59 SDEF UCBSB_XQ_MST -BLKB 1 ; Maintenance state 
E $80 SDEF UCBSB_XQ_ MULTI .BLKB 1 ; Number of entries in MULTI 
EA 681 SDEF UCBSB_XQ_MLTTBL .BLKB 1 ; Number of entries in MLTTBL 
;RNGOOO1 £8 1 S$DEF SB"XQ"SPARE .BLKB 1 ; SPARE BYTE 
C ; SDEF  UCBSG-XQ"MULTI .BLKW prmaxc AL ; Multicast address List 
! “ 685 SDEF UCBSG_XQ_MLTTBL .BLKW *MAX_C_MLT ; Multicast generation List 
17C = 685 goer BSW_xQ_CTR ; Stert of counter section 
17¢ «866 DEF _XQ_ANECTR .BLKW 1 ; Multicast address not enabled 
43 687 SDEF UCBSW_xXQ_UBUCTR .BLKW 1 ; No buffer available counter 
18 688 SDEF UCBSL_XQ_SBLCTR .BLKL ; Number of blocks sent 
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UCBSL_XQ_SBYCTR .BLKL 
UCBSL“XQ"RBLCTR .BLKL 
UCBSL“XQ"RBYCTR 


BY 
BL 
ye 
UCBSW_xQ_TOTQUO .BLKW 
UCBSL x07 JFFI »BLKL 


UCBSL-XQ"STIRP .BLKL 
UCBSC_xQ_LENGTH 


. 

to 

x 

co 
a 


; Define device status bits 


SVIELD UuCB,0,< 
AOC INITED, MD, - 


< 
<x -PROTIP, .M>. ° 
<XQ" SHARE, .M>,= 
<9, STACK, ,.M>,- 

<xQ “ {NTERLOCK, .M>, . 
<a “RESTART, ,M>, = 


SOEFEND UCB 


3; Number of bytes sent 

; Number of blocks received 

; Number of bytes eqce ved 

3 sed/unneeded field 

; Total quota for shared — 

: fest interface BLOCK addre 

3% Address of PT-TO-PT Startup Re 


; Size of XQDRIVER UCB 


XQDRIVER UCBSW_DEVSTS bits 
Device is initialized 
RESERVED 


Protocol type specified 

Shared protocol type 

Unit is in RUN mode 

Z Unit is in PT-TO-PT startup state 
| Bn. is in PT-TO-PT stack state 


ved 
3 RESTART bit is interlocked 
3; Automatic RESTART on PROTOLOL 
; requested 


; End of UCB definitions 


55 
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sey 


: Device register offsets and bit definitions 
, SDEFINI XQ GLOBAL ; Start of port CSR definitions 


~~~ 
—— 


7? 
7 § SDEF PHYADDO .BLKW 1 ; Physical address (R/O) = low byte 
SDEF PHYADD] .BLKW 1 ; = =0more phys cal address (R/O) 
4 4 SDEF peraves 3. and still more (R/O) 
4 5 SDEF RCVLIST .BLKe 1 ; Receive descriptor List (W/O) 
6 § SDEF RCVLST1 ; high order receive List (W/O) 
SDEF PHYADD3 .BLKW 1 ; more physical address (R/O) 
8 7 § +444 PHYADD4 3 _ more physical address (R/O) 
7 DEF XMTLIST .BLKW 1 : Transmit descriptor List (w/0) 
OOA 730 SDEF XMTLSTI ; high order receive List (W/O) 
OOA 731 SDEF PHYADDS .BLKW 1 ; more physical address (R/O) 
ae § SDEF VECTOR .BLKW 1 3; Vector addrss (R/W) 
00 f 7 SDEF CSR -BLKW 1 : Port CSR 
735 -VIELD xXQ_CSR,0,<- ; CSR bit definitions 
0 7 6 <RUVENA, .M>, = ; Receive Enable 
7 <RESET, ,M>,- ; Reset 
0 738 <NXM, ,.M>,=- 3; Non-existent sonery 
0 739 <RROA, .M>,=- ; Read BOOT/DIAGNOSTICS ROM 
0 740 <XMTINV,,M>,=- ; Transmit List is invalid 
0 741 <RCVINV, ,M>,= 3; Receive List is invalid 
0010 rg <INTENA, ,M>,=- :; Interrupt enable 
0010 74 <RCVINT,,M>,=- 3; Receive interrupt 
0010 744 <ILOOP, ,M>,=- ; Internal loopback (O=ENABLE,1=DISABLE) 
0010 745 <ELOOP, ,M>,=- ; External loopback 
0010 746 <SANITY,,M>,=- $ sanity timer 
0010 747 >,- 3 RESERVED 
0 8 748 <XCAB,,.M>,- ; Transceiver cable okay 
0 749 <CAR,,M>,=- ; Carrier sense 
0010 750 <ERR, ,M>,- ; Fatal error flag (software set) 
0 73 <KMTENT, M>,= ; Transmit interrupt 
0 75 
0 8 754 XQ_SOFT,0,<- ; Software error flag bit definitions 
0 755 <TIMEOUT, .M>,- > Timeout — 
0 £28 <POWER, ,M>,=- ; Powerfail 
O010 78 ‘ 
0010 426 SDEFEND XQ ; End of device register definitions 
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6) 
res i Define the Transmit Ring Entry 
192 SDEFINI XMT GLOBAL ; Start of Transmit Ring Entry format 
ses SDEF XMT_W_FLAG -BLKW 1 ; Flags word 
£68 SDEF XMT_W_ADDRHI -BLKY 1 ; Buffer address (high) and descriptor 
04 6 SOEF XMT_W_ADD -Bitw 1 ; Buffer address (low 16 bits) 
; $ 7 y SDEF XMT_W_LEN -BLKW 1 ; 2's complement WORD size 
771 SDEF XMT_W_STS -BLKW ; XMIT Status word 
: 4 ore SDEF T_W_TOR a 1 ; Time Domain Reflectometry word 
¢ 735 SDEF XMT_C_LENGTH ; Size of transmit buffer ring entry 
0000003c B99¢ oe KMT_K_LENGTA = XMT_C_LENGTH ® <MAX_C_XMT+1> ; Size of xmit ring (1 for chain) 
a9¢ o76 -VIELD XMT_FLG,0,<- ; Define flag bits 
000c 77 <,18>,- ; RESERVED 
00C 178 <ERR, .M>, = : Transmit error 
00C 77 <LAST. ,M>,- : LAST packet/NOT used indicator 
00C 780 -; The driver only queues one seqment 
00C 781 -; transmit buffers, so this is 
00Cc 7 ¢ -; essentially an OWN flag. 
BO0k P84 . 
OOC 785 -VIELD XMT_DSC,0,<- ; Define bits for descriptor word 
ooc 7 § <,65,° ; RESERVED for high order address 
00C 7 <BEGODD,1,M>,- ; Buffer begins on a OND address 
C 788 <ENDODD,1,™>,- 3; Buffer ends on an ODD address 
8 C 789 <,4>,° ; RESERVED 
00C 790 <SETUP,1,M>,- ; Setup operation 
000c 83s «791 <E ->,- 3; End of message. 
009¢ 19 <CHAIN.1,M>,- : Chain operation 
000c 679 <VALID,1,M>,=- ; Valid buffer address 
gt 
oc 79 -VIELD XMT_STS,0,<- ; Define bits for status word 
oc 79 <,45,- ; RESERVED 
00C 798 <€0L54,">,- : Number of collisions 
000c 799 <FAIL,.>.> ; Collision check failure 
C 00 <ABORT; ,>,- :; Transmission was aborted due to 
C 01 =; excessive collisions 
C 0 - ; RESERVED 
C 80 <NOCAR, ,M>, = : No carrier ever present 
C Be <LCAR,,>,- : Loss of carrier 
C 5 <,1>,° . RESERVED 
¢ <ERR. .M>,- : Error on transmit 
C <LAST..M>,- ; LAST gorhoesnsy used indicator 
DOC 8 -; The driver only queues one seqment 
00C 809 =; transmit buffers, so this is 
DOC \9 =; essentially an OWN flag. 
a 
000¢ 18 _VIELD XMT_TOR,O,<- ; Define bits for TOR WORD 
00C 14 <TOR,14.M>,- : Time Domain Reflectometry 
D00C 15 >,* ; RESERVED 
00 C 1g 
000C 1 
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4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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SDEFEND XMT 


SDEFINI RCV 


18 : 
1 : 
y : Define the Receive List Entry 
4 EF RCV_W_ FLAG 
5 SDEF ° 
§ + VW ten BLKW 
8 EF BLKW 
EF 
0 SDEF 
bee 


-VIELD 


-VIELD 


GLOBAL 
& -BLKW 


1 
1 
1 
-BLKW : 
1 
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Ena of Transmit Ring Entry 


; Start of Receive List Entry format 


Flags word 
Buf or address (high) ond descriptor 
og address (low 16 bit 
Ss complement WORD size 
Status word 
Receive length byte <7:0> 
Size of transmit buffer ring entr 


Cy C LENGTH © <MAX_C _RCVSID ; Size of receive ring (1 for chain) 
-VIELD acy FUG. ,0,<- 


<ERR.. *™>,- 
<LAST, «MD, - 


RCV_DSC,0,<- 
<,1%> 

<eHAIN, | ,M>,- 

<VALID,1 *m> = 

> 


pe STS ,0,<- 


NT.,—>,- 
<DISCARD, .M>,- 
Nay hg - 

.m>.- 
<LAS EARS, ° 


SDEFEND RCV 


: Transmit Buffer Header Format 


SOEFINI XBuUF 


XBUF _G_DEST -BLKW ; 
XBUF “G~ SRC “BLK 

XBUF “W" TYPE “BLKW 
XBUF ~T"DATA 

XBUF ~C “HEADER 

BUF _W_SIZE -BikKw 


SDEFEND XBuUF 


e. Se Pe Se Oe Ge Ge Be Ge Ge Se Se oe Bete Se Se 


ete Oe Ge ee 


Define flag bits 
RESERVED 


Receive error 
LAST packet/NOT used indicator 


Define bits for descriptor word 
RESERVED for high order address 
Chain operation 

Valid buffer address 


Define status word 

DEQNA receive overflow 

CRC error 

Framing error 

Short on Ethernet Cable 
RESERV 

Receive Length bits <10:8> 
RUNT peek et 

hee 1) —— (VALIDATES OvF & CRCERR) 
nd of 

Error/USED “Indicator ‘ 

LAST packet/NOT used indicator 


End of Receive Ring Entry 


Define transmit buffer header 


Destination address 
Source address (overlays UCB) 


Protocol tyee 

Start of xmit data 

Size of buffer header 

Size of buffer (only if padding) 


End of transmit buffer header 


15 
(6) 
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75 
76; 
7 ; Block header for non-DECnet xmit buffers 
hi ; SOEFINI BLK ; Define a standard block header 
1 SDEF BLK_L_LINK -BLKL 2 3 forverd and backward queue Links 
¢ SDEF BLK“WnSITE -BLKeY ; Block size 

OOA SDEF BLK_B_TYPE -BLK 1 ; Block type 

Bee 4 SDEF pLc Bp .srane -BLKB 1 3; SPARE byte 

00C 5 SDEF BLK_ : <DATA ; Start of data 

Gat § SDEF BLK~C"HEADER F 

0c 8 SDEFEND BLK 


; Size of buffer header 


i -JAN- 249: AX/VMS Macro y04-00 P 
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000 90 ; 
200 91 ; Define the DEQNA Controller Data Block (CDB) fields 
0 92 ; 
e 5 SOEFINI COB GLOBAL ; Start of COB definitions 
-BLKL } ; Fork queue forward Link 
O04 39 DEF (DBC ~FaBt “Beat 1 ; Fork queve backward Link 
008 98 SDEF COB_W_SIZE -BLK 1 i Size of CDB 
QOA 35 SDEF COB_B_ TYPE -BLKB 1 ; Type of structure 
0008 00 SDEF CDB_B_FIPL -BLK 1 : Fork IPL 
00 901 SDEF COB_L_FPC Ae 4 ; Fork PC 
$616 1 SDEF COB"L-LASTCS : Port csr contents 
mips 0010 903 SDEF EDB-L FRE BURL : sore Re 
0018 308 SEF CDB-B"NEXTXNT -BLKB > Next entry in XMT ring 
$619 906 SDEF CDB-B_NEXTRCV. .BLKB 1 ; Next entry in RCV ring 
001A 907 ASSUME so I Ls 
SOTA 309 spEF COB"B"REVRAP -BLKB 1 ; RCV map slot in use flags 
0018 910 SDEF COB"B-XMTMAP) = =—s«wBLKB ; XMT map slot in use flags 
001C 911 SDEF “DB_L_RCVMAP -BLKL MAX_C_RCV-1 ; RCV mapping vector 
0038 912 SDEF (59_L_XMTMAP -BLKL MAXIC“XMT=-1 ; XMT mapping vector 
0044 313 SDEF CDOE“L-RRINGPA .BLKL MAX_C_RCV*l ; RCV Ring entry PHYSICAL address 
0068 914 SDEF COB"L_XRINGPA .BLKL wan sare? Ry Rn Ba 
= x : 
909 316 Hat EDEL TRRINGVA “BERL MAX_C_XMT ; XMT Ring entry VIRTUAL address 
QOAC 917 SDEF COd-L-RCV_PA -BLKL RAR_CACWUNT 5 Roce ve contiguous buffer 
$060 319 SDEF COB_L_XMT_PA ~-BLAL rax_cantuv' 7" Transmit’ contiguous buffer 
= - = : y , 
00ce 3 ; SDEF COB_L_RCV_VA -BLKL max_c_aciuv! Receive cont iguous buffer 
Sopa 9 xmt vi ; Transmit conti s buffer 
9008 3 $ SDEF  CDB_L_XMT_VA  .BLKL = MAX_C_ MN ietuat sagrese 
; Start o que 
SOD 3 ; Hat EDB-O-¥RTREG -—BLKQ 1 ; Transmit request queue 
001 O0E4 9 § CDB_C_ABORTS = <.-CDB_Q QUEUES>/8 ; Number of Queues to abort requests 
pee Q0OE4 929 SDEF ~ CDB_Q_XMTPND ~ “.BLKQ = 1 ; Transmit pending queue 
i OOEC 930 SDEF COB_Q@_RCVBUF -BLKQ 1 ; Receive buffer queue 
OOFS 931 SDEF CDB-Q- RCVPND -BLKQ 1 ; Receive pending queue 
OOFC 9 ¢ SDEF CDB-Q" POST -BLKQ 1 ; Post process ay 
00000005 0108 4 ? CDB_C_QUEUES = <.-CDB_Q_QUEUES>/8 ; Number of Queue | 
R -BLKB . Last entry done in RCV ring 
a18¢ j ; SEF EDB-BULASTXAT -BLKB 1 ; Last entry done in XMT ring be 
1 5 $ $DEF COB-B-RCVCNT BL 1 ; Count of receives given to 0 
6} 938 SDEF COB_B_XATCNT -BLKB 1 ; Count of xumits giver to QNA 
108 9 3 SDEF CDB-W_BSZ ‘ 1 : Beyice but fer otze 
O10k 340 SDEF  CDBWTQUOTA “BLKW : SYS er q 
P 1 ; Device dependent longword 
O110 948 $DEF © COBTL“UEBOT “atat 1; Address of OCS #0 
bite 1 SDEF COB-L_CSR -BLKL 1 ; DEQNA CSR address 
:RNGOOOT 118 12 $DEF  COBTB"SPAR “BLKB ; SPARE BYTE | 
<RNCOOOI 119 § SDEF CDB-B-DIAGl -BLKB 1 ; Diagnostic info byte Z 
:RNGOOOT 11A .4 SDEF COB" Ww DIAG2 -BLKw 1 : Second word of diagnostic info 
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:RNGooet 11C of 
NGO001 126 949 SDEF CDB_L_RINGMAP .BLKL 1 ; Mapping information for RINGs 
1 308 SDEF CDB_G_COUNTER ; Start of counters 
1 949 SDEF COB_W_ZERO -BLKW 1 ; Seconds since last zeroed 
1 950 SDEF COB_L_OBRCTR -BLKL 1 3; Messages received 
1 951 SDEF CDOB_L_MBLCTR -BLKL 1 ; Multicast messages received 
12A 826 SDEF COB_W_RFLMAP ° 1 ; Messages received in error = bitmap 
12C §©=6955 SDEF COB_W_RFLCTR -BLK 1 : mgsgeure received in error 
4 —E 954 ASSOME CDB w_RFiCTR’ EQ CDB_W_RFLMAP+ 
1 955 SDEF CDB_L_BRCCTR -BLKL 1 ; Bytes received 
4 328 SDEF COB_L_MBYCTR aU Gye ; Multicast bytes received 
1 957 SDEF CDOB_W_OVRCTR -BLKW 1 ; Packets lost due to hardware buffers 
9138 228 SDEF COB_W_LBECTR -—BLKW 1 ; Packets lost due to system buffer error 
O13A 959 SDEF CDB_L_DBSCTR mi | |6F ; Messages sent 
01 5 960 SDEF COB-L_MBSCTR “ 1 ; Multicast messages sent 
014 961 SDEF COB-L-BSMCTR -BLKL 1 ; Messages sent - several errors 
0146 962 SDEF CDB-L_BSICTR -BLKL 1 ; Messages sent - 1 error 
014A 963 SDEF COB_L_BIDCTR -BLKL 1 ; Messages sent - initially deferred 
ores 964 SDEF CDB_L_BSNCTR -BLKL 1 ; Bytes sent 
015 965 SDEF CDB_L_MSNCTR -BLKL 1 ; Multicast bytes sent 
0156 966 SDEF 4 Ke 1 : Send failures - bitmap 
0158 967 SDEF COB_W_SFLCTR -BLK 1 Send failures 
015A 968 ASSOME COB u.sricTn EQ CDB_W_SFLMAP+2 
Brae 34 SDEF CDOB_W_CDCCTR 1 ; Transmit collision check fa‘lure 
015C 971 SDEF CDB_W_UFDCTR -BLKW 1 ; No protocol type counter on receive 
O1SE 972 SDEF COB_W_SBUCTR -BLKW 1 System buffer unavailable 
_W_ -BLK uffer available on a s 
0160 9735 SDEF CDOB_W_UBUCTR BLKW 1 No buff ilabl tt PT 
, gs 8 
3 Define the U mapped portion of the ata structures 
Bie $77 Defi he UNIBUS d i f the CDB (QNA d ) 
016 359 $DEF CDB_G_MAPPED 5 start of ne ing butter portion of CDB 
016 980 SDEF CDB-G_ ott feo -BLKB RCV_K_LENGTH : Rec 
O:icE 981 SDEF COB-G_XRING -BLKB XMT_K_LENGTH Xmit ci buffe ; 
000000A8 BgOA 9 ¢ § CDB_C_M pares. = .-CDB_G_MAPPED ; Size of UNIBUS mapped portion of CDB 
020A 9 eF CDB_C _1ER 0 : Size of CDB to zero severyth ing from 
020A 984 ; _the Sopra tag te e, oh S$ point) 
020A 985 SDEF COB_B_TIM_XMT .BLKB 1 ; Transmit timer 
0208 986 SDEF CDB-B_UNTCNT -BLKB 1 3 Number of active ae (UCBs) 
;RNGOOO1 8 of 1 $DEF COB"L-UV1BUF ~BLKL 1 ; MicroVAX I buffer area address 
-1 1 988 SDEF CDB-L-PRMUSER .BLKL 1 Promiscuous user's UCB address 
8512 3 9 SDEF CDB-L_TQE -BLK TOQESC _LENGTH Timer queue elemmet 
44 0 SDEF CDB_W_ MODE -BLKw 1 , QNA hardware mode 
0 $6 991 SDEF COB"B_STS -BLKB 1 ; Controller status 
024 992 SDEF CDB-B_ PRA -BLKB 1 3; Promiscuous mode 
8 $8 54 SDEF COB-B-MLT -BLKB 1 : Multicast (all) address state 
8 49 995 SDEF CDB_B_SETPRM 3; Start of settable parameters 
49 238 SDEF CDB-B- CON -BLKB 1 ; Controller mode 
00000901 0 2 4 CDB_C_SETPRA = .-CDB_B_SETPRM ; Size of settable parameter List 
GA 399 SDEF COB_G_ tes -BLKW ; User defined physical address 
50 1900 SDEF CDB-G_H -BLKW ; Hardware physical address 
56 1001 SDEF COB-G- PHY ADR -BLKW ; The current hardware address ; 
25C 1002 S$DEF CDB-B- MULTI -BLKB ; Number of entries in Multicast List 
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SS 


Number of entries in MLTTBL 

*MAX_C AUT: Multicast address table 

*MAX- -{ =MLT ; Multicast address generation table 
Additional QUOTA available 

3 Maximum extra QUOTA allowed 


DEF cB. m “LENGTH ; Size of QNA CDB 


-VIELD coe $TS,0,<- ; COB status bit for CDB_B_STS 
<IN NITED, >, - ; Inited 
<RUN,, ; Device is running 


; LTT8L -BLKB cs 

0 

3 

4 <FORK “PEND, .M>, - : Fork process is pending 
8 . 

oS 

0 

4 

5 


« 
> 
. 
—— 
ee 


as >,* Timer is active 

<ERR ; Fatal error has occurred 
<SETUP. AD, - 

> 


; Device is in SETUP mode 


-VIELD COB_MOD,0,<- 
<MUCTI,.M>,= 
<PROA, .F>, - 


Bits for mode definition CDB_W_MODE 
ALL multicasts enabled 
Promiscuous mode enabled 


ee ee eee ee ee 


Sssssssssscssosoosco 
POPIPOPIPINIRIPIPIPINNPIPIPIPININPPEPINPTD 


Se ee Fe ere en 


SOOCCOCOCOCCOOCOCOOCOOOOO MMaEmea 
Ok kk kk kt 


SDEFEND CDB End of QNA CDB definitions 
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00 1027 : 
i ! gi ; P2 buffer header definition 
308 gE SDEFINI P2B 
1 SDEF P2B -b -ROINTER -BLKL 1 ; Pointer to start of data 
009 1 g SDEF P2B-L_BUFFER -BLKL 1 ; Address of user's date buffer 
44 1034 SDEF P2B “W_SIZE ‘ vw 1 ; Size of P2 buffer 
0 " 1035 SDEF P2B_B_TYPE -BLKB 1 3 i7ee ¥ structure 
00 1 § SDEF P2B “B_ SPARE -BLKB 1 ; Spar 
0oc 1 SDEF : B- =f. LENGTH 5 Size. of byes buffer header 
48 ! 8 SDEF P2B-T “DATA 3; Start of data 
45 1369 SDEFEND P2B 
9000 1048 : Diagnostics buffer definition 
44 ee SDEFINI DIAG 
i444 1na8 : Driver independent portion of diagnostics buffer 
0000 1048 $DEF = DIAG_L_DAT -BLKL 1 : Pointer to start of data 
0004 1049 SDEF DIAG_L_BUFFER .BLKL 1 ; User buffer address 
0008 1920 SDEF DIAG_W_S1Z -BLKW 1 ; Size of structure 
OOOA 1051 SDEF DIAG_B_TYP -BLKB 1 ; Type of structure 
0008 1058 SDEF  DIAG-B"SPARE  .BLKB 1 : Spare byte 
000C 10535 SDEF DIAG_T_DAT ; Start of dat 
000C 1054 $DEF DIAG_C_START -BLKQ 1 ; Start time for Q10 
0014 1055 S$DEF DIAG_Q_FINISH -BLKQ 1 3 Finish time for Q10 
001C 1926 SDEF DIAG_L_ERRS -BLKL 1 ; Number of device errors 
b0Se Vee S SDEF DIAG_L_EXTRA -BLKL 1 ; Number of longwords that follow 
0034 1929 3 ; Driver dependent portion of diagnostics buffer 
0034 1061 $DEF DIAG _L_DEPEND 
0024 1S86 SDE DIAG_W"CSR .BLKW ; Last port CSR contents 
0026 1063 S$DEF DIAG_W_ERR -BLKW 1 ; Ring entry error summar 
0028 1064 $DEF  DIAGTWTERR2  ‘BLKW 1 S Extra ring entry error info 
ky 1302 SDEF DIAG_G_HW -BLKW 3 ; Hardware physical address 
0030 1987 > The following is valid only on read (receive) Q10s 
0030 1 $3 $peEF DIAG_T_RDATA ; Start of receive data 
4 1 9 S$DEF DIAG_G_DEST -BLKW 3 ; Destination address 
6 1071 SDEF DIAG_G_SRC -BLKW 5 . Source address 
003C 1 8 SDEF iS he -BLKW : Protocol type 
83 —E 1075 SDEF DIAG_C_LENG ; Start of data 
00000006 0 : rs DIAG_C_EXTRA™=" EDT AG. L_DEPEND/4 
! a8 SDEFEND DIAG 
p ! ei Receive buffer header definition 
00 : SDEFIN] RHOR 
29 1 § SDEF RHDR_L_DATA -BLKL 1 ; Pointer to start of data 
004 1 SDEF RHDR_L_BUFFER .BLKL 1 3; User buffer address 


voenOO 


0000000€ 


00000002 
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1 : DEF RuDRU SIZE -BLKY 1 
1 DEF RHOR_B_TYPE -BLKB 1 
1 § DEF RHDR_B_ SPARE -BLKB 1 
1 SDEF RHDR_T_DATA 
1 8 DEF RHDOR_G_DEST -BLKW ; 
1 DEF HOR_G_SRC -BLKW 
1 DEF RHDR_W_TYPE -BLK 1 
1 SDEF RHOR_C_LENGTH 
! 3 RHDR_C_DATA = .-RHDR_T_DATA 
1094 SDEFEND RHDR 
109% 
} $3 ; Shareable protocol type data st 
1 39 SDEFINI SHR GLOBAL 
1100 SDEF SHR_L_QFL -BLKL 1 
1101 SDEF SHR_L_QBL -BLKL 1 
11 § SDEF SHR_W_SIZE -BLKW 1 
11035 SDEF SHR_B_TYPE -BLKB 1 
1104 SDEF SHR_B_STS -BLKB 1 
1105 SDEF SHR_L_PID -BLKL 1 
11 $ SDEF SHR_W_CHAN -BLKW 1 
1107 SDEF SHR_G_DEST -BLKW 3 
11 : SDEF SHR_Q_QUEUE 
1109 SDEF SHR_Q_RCVMSG -—BLKQ 1 
1110 SDEF SHR_Q_RCVREQ -BLKQ 1 
1111 SHR_C_QUEUES = <.-SHR_Q_QUEUES>/8 
116 SDEF SHR_W_QUOTA -BLKW 1 
V3 SDEF SHR_C_LENGTH 
1115 -VIELD SHR_STS,0,<- 
1118 <INTTED, ,M>,= 
ig 
1119 SDEFEND SHR 


98 00:80 


ructure 
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Size of structure 
Type of structure 
Spare byte 

geery of data 
Destination address 
Source address 
Protocol type 

Start of data 


Forward Link pointer 
Backward Link pointer 
Size of structure 

Vy e of structure 

S status 

User's PID 


; User's channel 
; Destination address 
; Start of queues 


Received messages waiting for IRPs 
Receive IRPs waiting for messages 
Number cf queues 

User's shared quota 

Size of data structure 


SHR status bits % 
Protocol! type is inited 
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}} 1 -SBTTL Standard tables 
1 § Driver prologue table 
1125 ° DPTAB - ; 
11 : END=XQ END.” ; END OF DRIVER 
1 ADAPTERS ; ADAPTER TYPE 
1 : UCBSI ee MQ_LENGTH,= ; SIZE OF UCB 
1 ; NAME =XQDRIVER™ ; BRIVER NAME 
B 1131 DPT_STORE INIT ; START OF CONTROLLER INIT 
B11 ; DPT-STORE UCB,UCBSB_FIPL,B.IPL$_KO_FIPL ; F 
1 DPT-STORE UCB,UCBS$B_DIPL{B, IPLS_XQ-DIPL ; DEVIC 
460 1134 DPT“STORE ORB, ORBSB-FLAGS,6,- > Protect A block flags 
40 1135 ZORBSMPROT_16> : S$OGW treprotecs word 
4 11 § DPT_STORE ORB, ORBSW_PROT a. a ; deteul t Protection 
49 11 DPT“STORE ORB.ORBSL~OWNE : yet 
o38 1 : DPT" STORE UCB UCBSE BEVENAR.L = DEVICE CHARACTERISTICS 
50 (1140 DEVSM-NETi- 
30 1141 DEVSM-AVL |= 
5 1148 DEVSM~IDVi- 
930 1143 DEVSM~ODV> 
0057 1145 DPT_STORE UCB.UCBSB_ DEVCLASS B, DCS SCOM Device class 
0058 1146 DPT-STORE UCB.UCBS$B_DEVTYPE.8,DT$ DEQ : Device t ch 
SF O14 DPT-STORE UCB. UCBS¥~DEVBUFSIZ 512 Defau uf fer size 
0064 1168 OPT“STORE UCB. UCB SH” sts <U atthe ONL INE! UBS YER ATE> 
9069 114 DPT“STORE UCB.UCBS$ Shes ; No defoult physical address 
9079 1130 DPT~STORE Ma Met toe xO “PHASG. my -1 : ca 
0075 1136 : Store defaults for all parameters 
;RNGOOO1 075 & DPT_STORE UCB,UCBSW_XQ_BS7,W,MAX_PKT SIZE he device buffer size 
~1 007A 1155 DPT-STORE UCB,UCB$B_XQ_BFN.B, 1 Re user buffer number 
OO7E 1156 DPT_STORE UCB,UCBSW_xXOQ_HBQ,W,INIT_C auorA Hardvare Buffer Quota 
0085 113¢ DPT STORE UCB,UCB$B_XQ_PRO,B,NMASC_CINPR_NI ; ‘WI'’ is the protocol mode 
087 1158 DPT“STORE UCB,UCBSB_XQ-PRM.B.NMASC_STATE OFF ; Promiscuous s OF 
Boar 1159 DPT“STORE UCB, UCBSB_XQ-MLT.B.NMASC_STATE-OFF ; ALL multicasts is OFF 
O8F 1160 DPT“STORE UCB.UCBS$B_XQ-DCH.B.NMASC_STATE_ON ; Data chaining is ON 
093 1161 DPT-STORE UCB.UCB$B_XO PAD .B.NAASC-STATE“ON ; Padding is 
097 136¢ DPT-STORE UCB,UCBS$B_XQ_CON,B.NMASC-LINCN'NOR ; Controler mode is NORMAL 
098 1163 DPT"STORE UCB,UCB$B_XQ-ACC.B.NMASC_ACC_ERC = buelustve mode is default 
3 1165 DPT_STORE REINIT 
OF 116) DPT_STORE DDB,DDBSL_DDT,D,XQSDDT : DDT ADDRESS 
Ad 1168 DPT“STORE CRB.CRBSL_INTO+4,D.QNA_INTR ; QNA inter pt service routine 
Ag 116 DPT“STORE CRB. CRBSL_INTD+VECSL_IRNITIAL,D,CONTROL INIT; CONTROLLER INIT ADORE 
AE 1170 DPT“STORE CRB.CRBSL-INTD+VECSL_UNITINIT,O,UNIT IRMIT; UNIT INIT 
1171 DPT“STORE CRB,CRBSL_INTD*VECSL-START.D,FFI_INIT ; FFI INIT 
1178 DPT“STORE END 
0000 117% .PSECT $$$115_DRIVER. LONG 
1176 : LOCAL STORAGE 
1177 : 


= VAX/VMS QNA driver 
Standard tables 


gi ; Driver dispatch table 


; Function decision table 
Q TES 


DOC OOO00000 O00 OWMaDccaceacce ~~ 


NRO ODNA UE WN" OVOONOU FE WO 
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DDTAB DEVNAM=XQ,- 
ARTIO,- 


FUNCTB=XQ FUNCTABLE ,~ 
=CA 


DRIVER DISPATCH TABLE 
gcert 1/0 operat ation 

Function dec sion t table address 
Sane 1/0 entry point 
REGOMP=REG Pid Re nico entry point 
DIAGBF=<DIAG_C_LENGTH>,= ; Diagno ffer size 
CLONEDUCB=CLONED_UCB,- ; Cloned oe’ initialization 
ALTSTART=ALT_START ; Alternate start 1/0 entry point 


CTAB , cael Functions 
<wRITEVBLK WRI TELBLK, WRI TEPBLK vias? LK ,READLBLK,- 
READPBLK, SENSEMODE , SENSECHAR, SETMODE , S ETCHAR> 

UNCTAB , is Functions 


Buf f 

CURT TEYBCK WRITELBLK WRI TEPBLK READVBLE READLBLK, ° 

READPBLK 3 SENSE MODE SENSECHAR, SE TMODE , SETCH 

FUNCTAB PoeuRiTe SC UATT TEPB K ARITEVBLK : 

FUNCTAB Rev" POT READE Ore files REA ADVBLK> ; 
TRODE FDOT, <SETMOD 


FUNCTAB SENSEMODE_FOT, CSENSEMOFE . SENSECHAR> : 


SDEF = PRM_W_OFF 


9 
QNA driver a rap 
river storage 


; P2 Buffer verification tables 


SOEFINI PARAM 


SDEF PRA_W_TYPE -BLKW 
/IELD an Mis 0,<- 
<C 18, f>,- 


<StRING, {.m>,- 


SDEF PRM_B_FLAG -BLKB 
_VIELD nt FLG <- 

Rit he's 

nih. —>,- 


cinvit fof. {,.™>,- 


<CWEEK, 1.4>,- 


-BLKW 

VIELD PRM_OFF,0,<- 

- <vaCuU ay 7 
<WIDTH.6,8>,= 


SDEFEND PARAM 


i Detine Line parameters 
LINE PR PRM_BUFSIZ=0 


“SEP-19 
-SBTTL Local driver storage 


a a ani a a kt 8 tt a = — — — —  — — --  — — —  —  — — — _  — _* _ _ t 


PAA AAA AA BB EB AAI IAA AI IO POPOPIPIPINININD 


SODA NEW DODANE Wy Sr ee en ee eee 


RAM_WO: 
PARAM NMASC_PCLI_HBQ,- 
FSET <UtBSu xQ_HBQ,- 
WIDTH=W,MAX=16384,- 


INVAL 1D=UCBSM_XQ_INITED 


NMASC_PCLI_ACC,- 
OFF SET=UCBSB_ x@_ACC,- 


gIDTA 
AIN=NMASC _ACC_SHR,- 
MAX=NMASC_ACC EXC 


NMASC_PCLI_PRO,- 
OFF SET=UCBSB_ x6_PRO,- 


WIDTH=B 
MIN=NMA$C_LINPR _PO!,- 


MAX=NMASC"LINPR_NI 
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Parameter type 


Parameter type field 
Parameter type code 
Parameter is a string 


Parameter flags 


Parameter flag bits 

Parameter minimum value present 
Parameter maximum value present 
Parameter invalid value is present 
Offset is in CDB data base 

Check values with current 


& 
Parameter offset in structure 
Offset word fields 


Offset value 
Size of field in structure 


Line parameter buffer size 
"Write-Only”’ Line parameters 


Hardware Buffer Quota 


Start of Line parameters 


; Access mode for protocol type 


; Protocoi selection mode 


3% Accept either point or NI 


- VAX/VA 
Local driver storage 


- 


IOS 


2s 


Qe2se5 


TVOOOooan 


COOOCOCoOVOVOVDOOCOoooywwNsN 


MMMMMoOoCoCIT TT ITo 


woonoovun 


© ~“ 
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PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 


PARAM 
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NMASC_PCLI BUS,- 

Orr se ted BSu_DévBUFSIZ,-" 
4} Al fe > 

MIN= hie 
MANSRAX “bey 

TNWAL LDZUCBSAL x0" *INITED 


NMASC_PCLI_BFN,- 
OFF SET=UCBSB_ x0_BFN,- 


Ha "Rie 
INVALID=UCSR. x0_ INITED 


NMASC_PCLI_PHA,- 
OFF SET=UCBSG. x6 PHA, - 
S12E=<2+6> 

INVAL 1520C6SM_ XQ_INITED 


NMASC_PCLI_DCH,- 
OFF SET=UCBSB_ x@_DCH,- 


WIDTH= 
mARstenasc _STATE_OFF 


NMASC_PCLI_PAD,- 
OF F SET=UCBSB_ xQ_PAD,- 


WIDTH 
MAKENMASC _STATE_OFF 


NMASC_PCLI_PRM,- 
OFF SET=UCBSB_ XQ_PRM,- 


WIDTH= 
MARCWAASC.S E_OFF 
INVAL ID=UCBSM. xo_ INI TED 


NMASC_PCLI_MLT,- 
Giothogys ss x@_MLT,- 


MAKSNAREC.S STATE_OFF 
TNVALID=UCBSA. x6 “INITED 


NMASC_PCLI 
OFF SET-UCBSB. OS CON,- 


MAKENRASC._L 
TNVALID=UCBSA. x x0 LONI TED 


NMASC_PCLI 
OFF SET=UCESY, ‘ _PROTYP,- 


INVAL ID=UCBSM_ XQ_INITED 


NMASC_PCLI_MCA,- 
OF FSET=UCBSG_ x6. _MULTI,- 
STRI NgeY $,° 
S12E=2+<6eMAX _C_MLT> 


; Buffer size 


; User buffer LIMITS 


; Buffer number 


; Physical NI address 


Data chaining on receives 


Padding mode 


; Promiscuous mode state 


; Accept all multicast addresses 


; Controller mode 


; Protocol type 


; Multicast address List 


; Maximum size of List 
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€5 131 
€5 131 PARAM WMASC_PCLI BS7,- ; Device buffer size 
5 1 ‘ OF FSET=UCBSw_x6_8S7,- 
; 1 WIDTH=W,- 
1 § honed MSE Oe 
+ ea MAX=MAX_PKT SIZE,- 
: ! 3 INVAL IDUCBSM_XQ_INITED 
F 1 § PARAM WMASC_PCLI_DES,=- i; Destination Address for shared 
FO 1 OFFSET=UCBSG_XQ_DES.- : Protocol Type 
FO (1 $ STRING=YES,=- 
: ! 4 SIZE=<2+6> 
OOFS 1331 ;eeee 
OFS 1 ; THE FOLLOWING CAN BE ELIMINATED 
OF 1 pater 
OF 1334 PARAM WNMAS$C_PCLI CRC,- ; CRC enabled 
OF5 1335 OFFSET=UCBSB_XQ_MST,- : garbage 
OOFS 1 $ WIDTH=B8,- ; 
Oor5 4 MAX=NMASC_STATE_OFF 
QOFC 1338 
QOOFC 1339 PARAM : End of table 
OOFE 1340 : 
i : 7} CIRCUIT_PARAM: ; Start of circuit parameter table 
OOFE 1 rk PARAM WMASC_PCCI_MST,- 3; Maintenance state 
OOFE 13¢8 OFF se TaUCBSe_XG_AST.~ 
OOFE 1346 MIN=NMA$C_STATE_ON, - 
OOF E 1347 MAX=NMASC_STATE OFF 
819 1348 
4 : rt PARAM ; End of table 
0105 1351 ; 
44 : 26 3 Line/circuit counters 
$109 1354 CINE_CTR: ; Start of LINE counters 
0109 1355 COUNTER ZER, 16, ZERO ; Seconds since last zeroed 
010D 1 2 COUNTER DBR, 32, DBRCTR ; Packets received 
0111 135 COUNTER i - MBLCTR ; Multicast packets received 
115 1358 COUNTER RFL, 16, RFLMAP,, MAP ; Packets received in error 
119 1359 COUNTER BRC, 35° BRCCTR ; Bytes received 
11D 1360 COUNTER MBY, 352, MBYCTR ; Multicast bytes received 
121 1361 COUNTER OVR, 16, OVRCTR ; Receives lost = Internal buffer error 
125 1 6¢ COUNTER LBE, 16, LBECTR , Receives lost - Local buffer error 
129 136 COUNTER DBS, - DBSCTR ; Packets transmitted 
12D 1364 COUNTER MBS, 32, MBSCTR ; Multicast packets transmitted 
131 1365 COUNTER BSA, - BSMCTR ; Packets transmitted - several errors 
135 1 $6 COUNTER BS1, - BSICTR ; Packets transmitted - 1 error 
139 136 COUNTER BID, - BIDCTR ; Packets transmitted - deferred 
13D (1 $8 COUNTER BSN, 3¢, BSNCTR ; Bytes transmitted 
141 #1 8 COUNTER MSN, ge MSNCTR ; Multicast bytes transmitted 
145 1370 COUNTER SFL, 16, SFLMAP., MAP ; Transmit packets aborted 
149 1371 COUNTER COC, 16, CDOCCTR ; Transmit collision check failure 
14D 1 ag COUNTER UFD, 19. UFDCTR ; Unrecognized frame destination 
151 137 COUNTER SBU, 16, SBUCTR ; System buffer unayet i sble 
155 1374 COUNTER UBU, 16, UBUCTR ; User buffer unavailable 
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| i RR CIRC_CTR: 3; Start of CIRCUIT counters 
1 137 “COUNTER DBS, 32, SBLCTR, CIRC ; Blocks sent 
15D 137 COUNTER BSN, 32, SBYCTR, CIRC ; Bytes sent 
161 137 COUNTER DBR, + RBLCTR, CIRC ; Blocks received 
165 1380 COUNTER BRC, 352, RBYCTR, CIRC ; Bytes received 
169 1381 COUNTER MNE, 16, MNECTR, CIRC ; Multicast address not enabled 
190 1 ¢ COUNTER UBU, 16, UBUCTR, CIRC ; User buffer unavailable 
177 «1 
17 5 : MOP read counters return table (in order of COUNTERs returned) 
: ; Start of MOP counters 
a i ; ROPCTATAB: 16, ZERO ; Seconds since last zeroed 
0174 1389 MOPCTR » BRCCTR ; Bytes received 
0177 1390 MOPCTR » BSNCTR ; Bytes transmitted 
O17A 1391 MOPCTR » DBRCTR 3; Packets received 
017d 139 PC » DBSCTR ; Packets transmitted 
0180 1 38 MUPCTR » MBYCTR ; Multicast bytes received 
01 5 1394 MOPCTR - MBLCTR ; Multicast packets received 
0186 1395 MOPCT » BIDCTR 3; Packets transmitted - deferred 
0189 139 MOPCTR » BSICTR 3; Packets transmitted - 1 error 
018C 1 3 MOPCTR - BSMCTR ; Packets transmitted - several errors 
0O18F 1398 MOPCTR 16, SFLCTR, MAP ; Transmit packets aborted 
0192 1399 MOPCTR 16, RFLCTR, MAP ; Packets received in error 
6198 1400 PCT 16, UFDCTR ; Unrecognized frame destination 
0198 1401 MOPCTR 16, OVRCTR ; Receives lost - Internal buffer error 
0198 140 MOPCTR 16, LBECTR ; Receives lost - Local buffer error 
019E 1208 MOPCTR 16, UBUCTR ; User buffer unavailable 
O1A1 1404 MOPCTR 16, CDCCTR ; Transmit collision check failure 
gin re MOPCTR ; End of table 
DIAG (i : Calculate total size of MOP counter return data buffer 
; P_CTR_SIZE = MOP_CTR_SIZE + 1 + 2 + 8 ; Size cf counters + MOP header 
aati OIG 1610 MOPTCTRoSITE = MOP_CTR_SIZE + XBUF _C_HEADER ; Size of buffer + NI header 
1A 1412 ; 
1A8 1418 ; BAD PARAMETER RETURN TABLE 
10 1415 : First rt is validation of Unit apetnet controller. The second part is 
i” 1016 ; for val idation of shared protocol types. 
186 1313 : Note that the table is in the REVERSE order from that of the UCB. 
1A6 1? 9 Hb pannk Tae UCBSB_XQ_CON EQ UCBS$B_x0_CDBPRM 
A 4 : 
0456 1A 1 § 2 «GORD WMASC_PCLI_CON 
A UCBSW_xXQ_BSZ EQ UCBS$B_XOQ_SHRPRM 
iA 12 ¢ ASSURE UCB$B_XQ"-PRO EQ UCB ey NO _BSZ+¢ 
1AB (14 ASSUME UCBSB_xXQ_PAD 43 UCBS$B_XQ_PRO+ 
1AB 14 $ ASSUME UCBSB_XQ_PRM EQ UCBS$B_XQ"PAD+1 
1AB 14 ASSUME UCBSB"XQ"MLT EQ UCB$B-XQ-PRM+1 
1A8 14 ; ASSUME UCB$B-XQ"DCH EQ UCBSB-XO-MLT+1 
1AB8 «(14 9 ASSUME UCBSB_XQ°COBPRM EQ UCB$B"KO_DCH+1 
0OB1B O1AB 14 -WORD WMASC~PCCI_DCH 
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v04-001 CONTROL_INIT = INITIALIZE DEQNA DEVICE ~SEP=1934 00:20:54 (CDRIVER.BUGSRCIXGDORIVER.MAR; 1 (11) | 

186 1473 -SBTTL CONTROL_INIT = INITIALIZE DEQNA DEVICE | 

18° ved : CONTROL_INIT = INITIALIZE DEQNA DEVICE | 

188 1448 3 Functional description: | 

1B6 1445 : This routine is entered when driver is loaded, system is booted, or 

186 1208 ; during powerfail recovery. | , 
186 14647 ; ; 
BS ogg E tues : 
1B6 1450 : R4 = Address of the device (SR : 
186 1451 ; R5 = Address of the device 108 : 
186 1428 3 R6 = Address of the device DDB : 
0186 1455 ; R8 = Address of the device CRB ‘ 
Q01B6 1454 ; : 
O16 1¢32 3 iPL = FIPL ‘ 
aie 1487 ; Outputs: 4 
01B6 1459 ; R4,R5,RB are preserved 3) 
gigs 0 
0186 1466 CONTROL _INIT:: ; Initialize the DEQNA | 
05 0186 146 RSB ; Return to calier ‘| 
| 
i! 


mapa yee = VAX/VMS QNA driver =JAN“1985 17:49: 96 AX/VMS Macro v04-00 Page 30 | . 
v04=-001 CLONED_UCB = INITIALIZE THE CLONED UCB rSEp=19 00:20: DRIVER.BUGSRC JXQDRIVER.MAR; 1 (12) v 
+ re oe -SBTTL CLONED_UCB = INITIALIZE THE CLONED UCB 
187 1467 ; CLONED_UCB = INITIAL 4ZE THE CLONED UCB 
187 1489 > Functional description: 
1B? 1471 ; This routine is called by the SASSIGN system service to allow the driver 
+ 1238 ; to initialize the cloned UCB. The driver is called with process context. 
0187 1474 : Inputs: 
1B) tape | RO = SS$_NO 
i 3 : 
$185 1279 ; ne = uce~ po wien of cloned UCB 
0187 1478 ; R5 = DOT addre n 
Q01B7 1479 ; R4 = PCB eaares 
518e t+ : RS = uCB po + that of template UCB 
o187 188 : IPL = ASTDEL | 
0187 148% ; Outputs: | 
0187 1486 : RO = SS$_NORMAL 
0187 1487 ; RS = UCB” address of cloned UCB 
01B7 1488 ; ALL other registers and IPL are preserved. 
gigy 3 
0187 1491 CLONED_UCB:: ; Cloned UCB initialization 
0187 ieee MOVL R2,R5 ; Copy UCB address 
O1BA 149 : Continue in unit_initialization 
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v04-001 UNITLINIT = INITIALIZE THE DEQNA UNIT -SEP-1984 00:30:52 DRIVER. BUGSRCJXQDRIVER.MAR; 1 s (13) 
1BA 1495 -SBTTL UNIT_INIT = INITIALIZE THE DEQNA UNIT 
1BA 1238 p++ 
1BA 1497 ; UNIT_LINIT = INITIALIZE THE DEQNA UNIT 
1BA 1498 ; 
ork 1338 ; Functional description: 
1BA 1301 ; This routine is called at system startup, during driver loading and 
Q1BA 1386 3; during powerfail recovery to initialize the DEQNA unit and its UCB. 
Q1BA 1503 ; The UCB is initialized and if power has failed, the device is forced 
O1BA 1504 ; to shutdown. 
SIR 1382 Fino 
3 Inputs: 
O1BA 1209 ; 2 
O1BA 1508 ; R4 = CSR address 
Q1BA 1509 ; R5 = UCB address 
O1BA 1510 ; 
Q1BA 1511; IPL = FIPL 
O1BA 121g : 
O1BA 1513 ; Outputs: 
O1BA 1514; 
O1IBA 1515 ; None. 
01BA 1316 eo 
O1BA 151 
Q1BA 1518 UNIT_INIT:: ; Initialize a DEQNA unit 
O1BA 1319 3:88" JSB G* INISBRK peee TEMP eee 
3F 01BA 1354 PUSHR #*M<RO,R1,R2,R3,R4,R5> 3; Save all oi zt 
19 64 AS 05 €0 pret 1358 BBS #UCBSV_ POWER, UCBSW_STS(R5),15$ ; Br if powerfail 3! 
01C1 1524; 3 
01C1 1525 ; Initialize UCB queue listheads, and the pointer (within the NI device zi 
01C1 1366 3 dependent UCB extension, UCBSL_NI_MLTPTR) to the multicast address table for zt 
01C1 1527 ; this protocol type. 33 
01C1 1528 ; 36 
01C1 136? ; 3h 
OOEC CS) «=9E O1C1 1530 MOVAB UCB$G_XGQ_MULTI(RS),- ; Initialize the pointer to this si 
0094 ¢5 at) 1331 UCBSL-NI-MLTPTR(RSS ; protocol’s multicast address table a 
50 04 »p0 O1C8 133 MOVL #UCBSC_XQ_QUEUES,RO ; Get number of queue Listheads in UCB sf 
51 0098 CS 9E O1CB 1534 MOVAB UCB$Q_%Q GUEVES(RS).R1 ; Get address of queue Listheads 3f 
81 61 ODE 3108 1535 10S: MOVAL (R1),TRIT+ ; Set forward Link pointer 3! 
81 FC Al DO 0103 1536 MOVL -4(R1),(R1)+ ; Set backward Link pointer 3! 
F650 =F5 Ht 1eee SOBGTR RO,10$ 3; Loop if more Listheads a! 
54 AS B65 B1DA 1338 15$: TSTwW UCBSW_UNIT(RS) . Is this unit 0? , 3! 
15 13 O1DD 1540 BEQL 17$ ; Br if yes - leave TEMPLATE bit on I 
0082 (5S) = B4 BiDE 136] CLRW UCBSW_ERRCNT(R5) : Only unit #0 may List errors a 
SIE 1368 3; We must find the address of unit 0, so we can check if the QNA is ONLINE. 
anes rg: 3 If the QNA is OFFLINE, then we mark each UCB as being OFFLINE. ‘| 
50 28aA5S 00 OTE 1368 MOVL UCBSL_DDB(R5) ,R ; Get address of QNA DDB 3! 
50 04 a0 OD 34 4 154 MOVL poet UCB(RO) ,R :; Get address of UNIT 0 UCB 3! 
06 =«C 1EB 1548 BBS #UCB$T_ONLINE,- : Br if QNA is ONLINE 3! 
04 64 AO QIED 1549 UCBSW_STS(RO),17 5 : 3! 
10 AA piry 1550 BICW #UCBSA_ONLINE,=- 3; Else, mark new unit as OFFLINE sl 
64 AS 1F2 «1551 UCB$W_STS(R5S) : il 
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v04-001 UNIT_INIT = INITIALIZE THE DEQNA UNIT =3p0= 1982 00:30:50 YORIVER.BUESRC XODRIVER.MAR: 1°" df 
1F4 ste 17$: : 
;RNGOOO1 1F4 ° ; For MicrovAX I, we wilt have to allocate a physically contiguous 
js : ie “8 ; buffer area for perfoming 1/0 on the QNA. 
SRNGOOC | 176 CPUDISP <<790,60$>,- 
sR 1 1F4 at <780,60$>,- 
3 RN 1 1F4 § <7 8 $>,- 
;RNGOOO1 1F4 ‘ <730,60$>,- 
;RNGOOO1 1F4 8 <uV ott ee 
;RNGOOO1 1F4 u <UV1,20$>> ; For MicroVAX I, allocate buffer area 
see sd : 19 :; For all others, skip buffer area 
:ANGDO : 1g 208: : Microvax I 
;RNGOOO1 54 00c8 c5 1) 1 14 MOVL BSL_xXQ_CDB(RS) ,R4 ; Get COB address 
;RNGOOO1 0B 1 1 .15 BNEQ : Br if present 
;RNGOOO1 1099 3 1 +16 BSBW ALLOC_CDB ; Else, try to allocate a CDB 
;RNGOOO1 21 59 E9 O21A 21 BLBC : Br if error 
[RNGOOO1 54 008 C 00 18 18 MOVL  UCBSL_xQ_CDB(RS),R4 > Get CDB address 
~16 020C (4 oD 1369 238: STL  COB_L-UVTBUF(R4) : Is the buffer area allocated? 
16 812 1300 BNEQ 60$ ; Br if yes, continue 
saat ese 0 1376 UV1_BUFFER_LENGTH = <UV1_BUFFER_AREA + 511> & <*C511> =; Round to a page 
0000001 8 133 UV1_BUFFER_PAGES = UV1_BUFFER_CENGTH / $12 ; Number of pages 
51 .. =e 1575 MOVZWL #UV1_ BUFFER PAGES,R1 ; Number of pages to allocate 
00000000 ' GF 18 0228 1576 JSB G EXE SALOPHYCNTG ; Allocate pnhysically-contiguous memory 
OA 5 E9 0231 1577 BLBC RO,60$ ; Skip ahead on error 
;RNGOOO1 54 oocs ¢5 0234 1 MOVL UCBSL_XQ_CDB(RS) ,R4 ; Get CDB address 
-2 020C C4 52 00 8 ; 1580 MOVL R2,CDB_L-UV1BUF (R4) ; Save buffer area address 
50 26 9A O23E 15 ¢ 60$: MOVZBL #3*MAX_C_MLT,RO ; Get size of multicast list in words 
51 OOEFC CS 9E 0241 15 MOVAB UCBSG_RO-MULTI(R5).R1 : Get address of multicast List 
1 B46 Q 3 1584 70$: CLRW (R1)+ ; Init multicast table 
fa 9 FS 0248 1585 SOBGTR RO,708 ; Loop if more 
;RNGOOO1 54 00C8 C5 D0 0248 1 MOVL CBSL_XQ_CDB(RS) ,R4 ; Get CDB address 
: 06 12 025 1588 BNEQ $ : Br if present : 
1¢ 3 30 0252 1589 BSBW ALLOC_CDB ; Else, try to allocate a CDB 3 
OF 5 E9 0255 1590 BLBC ; Br if no error a : 
OA 64 AS 5 €1 0258 1591 80S: BBC #UCBSV_POWER,UCBSW_STS(R5) 90$ ; Br if not powerfail : 
24000 4 dO 8 28 1592 MOVL #<XQ_SOFT_M_POWER@TO>!- ; Indicate cause of error é 
64 1593 xQ_CSR_M_ERR,R3 : 
130F 6=—_- 30 64 1594 BSBw SCRED_FORK z Schedule fork process 3 
3F A 67 1595 90$: POPR #*M<RO,R1,R2,R3,R4,R5> , Restore regs : 
5 0269 1596 RSB ; Done : 
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Functional description: 


This routine initializes the FFI interface. Currently the UCB must 
have been initialized prior to seth ing this routine, in the future 
this routine may have to initialize the UCB and DEQNA. Therefore, 

° 


there may be a fork involved in the call to this routine. 
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1 
1 
1 
! Inputs: 
6A 1 1 R3 = Address of quadword descriptor for parameter buffer 
6A 1 \§ RG = FFI block address 
6A 161 
6A 1614 IPL = SYNCH 
6A 1615 
6A 1616 Outputs: 
6A 161 
6A 1913 RO = Status of request 
6A 161 ALL other registers are preserved. 
026A 1620 
026A 1621 ;-- 
6A 16 ¢ ASSUME IPLS_SYNCH EQ IPL$_xO_FIPL 
6A 1625 FFI_INIT:: 
3 6B 6A 16246 PUSHR #*M<R1,R2,R3,R4,R5> ; Save registers 
50 4 6C 1625 CLRL RO ; Assume failure 
55 34 a6 00 O $f 1626 MOVL FFISL DL_UCB(R4) ,R5 ; Get UCB address 
06 «#€©€1 «OO 1627 BBC #uces?_x0_RUN,- ; Br if device not ready 
OE 68 AS 0274 1628 UCBSW_BEVSTS(RS) ,90$ 
0346'CF 9E 0277 1629 MOVAB W*XMT_FFI_START,- ; Return address of XMIT routine 
10 A 027B 1630 FFISL XMIT(R4) 
0192 C5 654 «DO 0270 1631 VL R4 ,UCBSL_xQ_FFIC(RS) ; Save FFI address 
50 9A 0 Hf 1636 MOVZBL . ; Return success 
3— BA bss 16335 90$: POPR #*A<R1,R2,R3,R4,R5> ; Restore registers 
05 bSka 1oee RSB ; Return to caller 
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XQDRIVER = VAX/VMS QNA driver =JAN-1985 17:49: AX/VMS Macro v04-00 P 
iret XMT_FDT = TRANSMIT 1/0 OPERATION FDT ROU mets 1 b0:30.5¢ DRIVER. BUGSRC XODRIVER.MAR: 1.9" 8) 
3 -SBTTL XMT_FDT = TRANSMIT I/0 OPERATION FDT ROUTINE 
33 ; KMT_FDT = TRANSMIT I/0 OPERATION FDOT ROUTINE 


Functional description: 


This routine sets up the internal function code for transmit and 
transfers control to the exec buffered 1/0 write FDT routine. 


The 210 parameters for WRITES are: 


P1 = Address of the data buffer 
Pe = Size of the data buffer 
P> = Address of buffer containing the destination address 


** The driver can never do direct 1/0 on XMIT requests, because ** 
*** the QNA buffer address cannot begin on an odd byte boundary. *** 
te Also, the FAST interface cannot operate on DIRECT 1/0. ee 
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28 
0 
8 : Inputs: 
0 : R3 = IRP address 
0 R4 = PCB address 
028 RS = UCB address 
0 : R6 = CCB address 
8 5 R7 = FUNCTION CODE 
8 IPL = ASTDEL 
Outputs: 


RO-R2,R8,R9 are destroyed. 


Long branch to ABORTIO 
Abort the 1/0 request 
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XMT_FDT:: 
CLRQ  —s IRP$Q_STATION(R3 


Transmit FDT routine 
Zero the destination address 
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6 
6 
7 
7 
7 
7 
7 ; 
40 ; 7C 7 ) : 
OOCE B0 7? MOV UCBSW_XQ_PROTYP(R5S),- ; Assume we are a non-promiscuous user 
3A AS 7 IRPS$W_ XQ PROTYP(R3) : 
51 10 AC 7 MOVL PSCAPY,RT ; Get address of destination address 
38 ? BNEQ 10$ ; Br if given 
9A 1682 ; If the user is in shared mode, then he does not have to supply a destination 
9A 1685 ; address with each transmit operation. The destination address will be gotten 
3A ? 3; from the SHR data structure. 
EO 9A 16 88S #UCBSV_XQ_ SHARE ,- ; Br if shared user 
R 68 A5 9 16 UCBSWDEDSTS(R5),208 —; 
0 OC QA 9F 1688 108 MOVZBL S*#SS$ ACCVIO,R ; Assume access violation 
A 6 IFNORD #6, (R1J,ABORTI ; Check access to buffer 
40 as 4 AB 16 MOVL  (R1),IRPSQ STATION(R3) : Save destination address 
4443 O04 Al B at 69 MOVW 4(R1S,IRPSO_STATION+4(R3) ; ack 
B1 169 ASSUME NMASC_STATE_ON EQ 06 
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KQDRIVER = VAX/V4S QNA driver ~JAN-1985 17:49: AX/VMS Macro y04-00 Pa 5 
raat XMT_FDT = TRANSMIT 1/0 OPERATION FOT ROU 5-SEP-1984 00:30:50 DRIVER.BUGSRCJXQDRIVER.MAR; 1 - i) 
4 1636 ASSUME NMASC_STATE_OFF EQ 1 
0D QpDE 3 E 61 1938 208 BLBS U B56 _X0_PRA(AS) .508 ; Br if user is not promiscuous 
¢ BS 169 ADDL #6,R ; Point to protoc~ type 
BY 1998 IFNORD #2,(R1),ABORTIO BR 3 Check access to cutter 
SA AS 61 0 BF 199 MOVW cR1) JRE Sw XQ_PROTYP(R3) ; Get protocol type from user P5 buffer 
14 A C3 1700 30$ MOVZBL $*#SS$_BADPARAM,RO ; Assume bad parameters 
6C 0 £8 1701 MOVL PI(AP),R ; Get starting address of user buffer 
59 04 AC § C9 17 § MOVZWL P2(AP),R ; Get Length of user buffer 
nf CD 17 BEQL  ABORTIO : Br if zero Length buffer 
50 58 7D CF 1704 mMOVa R8,RO ; Retrieve buffer parameters 
00000000°GF 16 O2d2 1705 JSB G*EXESWRITECHK ; Check accessibility of user buffer 
d8 17 $ ; (No return on NO Atcess) 
8 17 ; Returns IRP$W_BCNT 
2 51 2861 D8 17 § CMPW = sR, #MIN_PKT_SIZE i Is buffer at Teast minimum? 
51 Se SE OSDB IPI Se itn vet sim. t Fics. Ui léeses’ etatase atend gact 
‘ : Else, allocate minimum sized packet 
00000048 BF 0 OZE0 1711 Sos: ADDL2” #CXBSC_HEADER- Ri s Calculete Length of butter needed 
8 868 ES ar; PUSHR #*M<R3,R4,R5> ; Save registers 
Q0000000'GF 16 —9 171 JS8 G*EXESBUFFRQUOTA ; Check if process has sufficient quota 
4¢ 50 —s«éE9 EF 1714 BLEC RO ; Br if quota check failure 
eoaeet  t 16 re 1715 JSB Gre XE SALLOCBUF ; Allocate CXB buffer for output 
4 0 €9 F at BLBC RO,90$ ; If LBC allocation failure 
53 6€ 00 OoFB 171 MOVL  (SP),R3 ; Retrieve address of IRP 
50 0080 g* 0 FS gat MOVL PCBSL_JIB(R4),RO ; Get JIB address 
4 A gag 03 171 SUBL R1,JIBSL_BYTCNT(RO) ; Adjust buffered 1/0 quota 
OA "6 07 1720 MOV R1, IRP$W_BOFF (R3) ; Set number of bytes charged to quota 
2c A 2s DO 0308 1721 VL Bg BAPTA _SUAPTE (AS? ; Save CXB address in IRP 
5 DD 8 4 4 § PUSHL R : Save pointer to CxB 
0311 1724 ASSUME CXBSL_FL EQ 0 
0311 1725 ASSUME CXBSL BL EQ CXBSL_FL+4 
82 7C 8 1 4 § CLRQ (R2)+ 3 Clear Link cells 
0 13 17 8 ASSUME CXBSW_SIZE EQ CXBSL_BL+4 : 
82 51 B80 0 + 4 ; VW R1,(R2)+ 3; Set size of structure 
16 1731 ASSUME CXBSB_TYPE EQ CXBSW_SIZE+2 
16 17 ; ASSUME cxese CODE EQ CxXBS$B_TYPE+1 
82 18 % 18 4 ? MOVZBW #DYNSC_CXB,(R2)+ ; Set structure type 
. ; Get bac address 
52 6E€ 00 i ig 5 MOVL (SP) ,R2 Get back CXB add 
1¢ 17 $ ASSUME CXBSC_HEADER EQ CXBST_T_DATA*XQ_C_HEADER 
18 A2 3A =B0 8 3 17 3 MOV #CXBST_T DATA GxBSy_60FF (Re) : Setup offset to start of data 
52 48 A2 9E ? 22 MOVAB CXBS$C_READER(R2) .R2 ; Get address of data portion of buffer 
62 68 3? 28 4 1761 mMOVC3 AB (R2) ; Move data to system buffer 
C BA 8 1746 POPR #*A<R2,R3,R4,R5> : Restore registers 
A 17% SETIPL UCBSB_fIPL(RS) > Sync access to UCB 
33 dD 1744 PUSHL R ; Save IRP address 
5 10 1745 BSBB XMT_START ; Do common processing 
3 8—D0 1768 POPL R : Restore IRP address 
08 50 ey 174 BLBC RO, ABORTIO : Br if error in processing request 
00000000 ' GF 7 ; 1788 JMP G*EXESQIORETURN ; Exit Q10 service to await completion 
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v04 XMT_FDT = TRANSMIT 1/0 OPERATION FDOT ROU 5=SEP=1984 00:20:54 [CDRIVER.BUGSRC MQDRIVER.MAR;1 (15) 
38 §6©BA 6(O33E «61750 90S: POPR #*M<R3,R4,R5> ; Restore registers 
Q00000000'GF 17 0340 1751 ABORTIO:JMP G*EXESABORTIO ; Abort the I/0 request 
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-SBTTL XMT_FFI_LSTART = START FAST INTERFACE TRANSMIT OPERATION 
XMT _FFILSTART = START FAST INTERFACE TRANSMIT OPERATION 
Functional description: 


set 
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; This routine is called to start a transmit operation. if the QNA is running 
; then the request is — to the xmit wait queue for the QNA. If there is 

; @ free entry in the transmit or and there are gett {stony RN, registers to 
; map the buffer then the request is given to the QNA immediately, else the 

; request is left on the xmit wait queue until another request completes. 


Inputs: 


R3 = CXB address 
RG4 = FFI address 


IPL = SYNCH (same as FIPL) 
Outputs: 


RO,R3 are destroyed. 
ALC other registers are preserved. 
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3 If the request cannot be queued al the FFISL_XMIT_DONE entry is 
$ f called immediately with the following 
$e 4 RS = CNB addre “ Srencare request 
= 
34 7 = FFI edaress 
ie 
34 7 ASSUME IPLS_SYNCH EQ IPL$_xXO_FIPL 
34 787 XMT_FFI_START:: ; Start FAST interface transmit request 
36 34 7 PUSHR #*M<R1,R2,R4,R5> ; Save registers 
55 34 a4 00 34 A: MOVL FFISL_OL_UCB{R4) RS : Get UCB address 
4 29 : For the FFI Interface, we will save the UCB address 
2403 55 DO 034C 179 MOVL CXB$L_T_UCB(R3) ; Save UCB address 
50 179 ASSUME ath T OCB €0 CxBSL_TIRP 
24043 O01 88 5 a BISB 1 er KeSC _UCB(R3) 3; ...indicate this is a UCB address 
18 AS OE A2 799 SUBW #XQ_C_HEADER,CXBSW_BOFF(R3) ; Back up offset for Ethernet header 
5 738 ASSUME NMASC_STATE_ON EQ 0 
04 0000 (5 —E bias UCase can Tenens) es eo ; Br if paddi is disable 
r adding is a 
18 0 § FS § SUBW CNTSI2 pate. wBOFF (AS): : Else, s + A length ioe of buffer 
51 ss"? A 3c 208: MOVZWL Cresy- Bor ch : Get offset "Se start of data 
52 5 C1 : ADOL3 > Set R2 to start of beater 
ASSUME XBUF G SRC EQ aay 6 “_— 
28 a3 7D MOVG CXBS0_STATION(R + destination address 
6 6 3 XBUF~G_DEST(R2) 
6 ASSUME XBUF_@_TYPE EQ hour ia Sened 


<= 
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= VAX/ QNA drive -J AX/VMS Macro y04-00 
vive aMY FFL START © START FAST INTERFACE TRA ers 1382 8; $3: 96 DRIVER .BUGSRC JXQORIVER.MAR; ie oe 8; 
c 7D } ] mova UxBur =e. ze peetas) = ; Store our source address 
sa ¢ B0 i ' MOVW ucBs- HO, PROT TBRS) ; Set PROTOCOL TYPE 
$ 1 ! ‘3 espe pat jairiate if ry Fi stort _trensait 
54 0198 C $ 7E 181 ROVE e6s XQ_FFICRS) RG ; Flse get “back FFI address 
1 ? 1 i$ JSB arr ite. XA1T_DONE (R4) : Complete request in error 
% 1818 50$ POPR #*M<R1TR2,RE,RS> ; Restore registers 
Be 1 § RSB ; Return to caller 
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XQDRIVER = VAX/VMS QNA driver -JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa 9 
yOenOur XMT_START = START TRANSMIT OPERATION Bonn 1982 00:30:52 DRIVER. BUGSRCIJXQDRIVER.MAR; 1 = a} 
2 } -SBTTL XMT_START = START TRANSMIT OPERATION 
2 | i 3; XMT_START = START TRANSMIT OPERATION 
4 ! 5 ; Functional description: 
y 5 ; This routine is called to start a transmit operation. If the QNA is running 
ao 8 3 then the request is given fo the xmit wait queue for the QNA. If there is 
9 1 3; a free entey in the transmit ~~ and there are sufficient map registers to 
9 1850 ; map the buffer then the request is given to the QNA immediately, else the 
0 2 : ; ; request is left on the xmit wait queue until another request completes. 
9 1833 ; 
0389 1834 ; ** The driver can never do direct I/0 on XMIT requests, because ** 
0389 1835 ; *** the QNA buffer address cannot begin on an odd byte boundary. *+* 
baa8 ! $$ 3 (fe Also, the FAST interface cannot operate on DIRECT 1/0. ee 
0383 1838 ; 
389 1839 ; Inputs: 
Oae3 1840 ;: 
0389 98 $ Re = CXB address 
0389 1 4g : R3 = IRP address 
0389 1843; RS = UCB address 
0389 1844 ; 
0389 1845 ; IPL = FIPL 
0389 1846 ; 
0389 1847 ; Outputs: 
0389 1848 ; 
0389 1849 ; RO = Status of transmit request 
0389 1850 ; R1,R2,R4 are destroyed. 
0389 133) 3 
0389 1 26 ;-- 
0389 185 -ENABL LS6 
0389 1854 XMT_START:: 3; Start transmit operation 
4 €0 0389 1855 BBS #UCBS$V_XQ_RUN,- ; Br if unit is in RUN mode 
10 68 AS 0388 1856 UCBSW_DEVSTS(R5) , 30$ 
50 2004 8F 3C O 33 1858 10$: MOVZWL #SS$_DEVINACT,RO 3; Assume unit not started yet 
OF E1 0393 1859 BBC #UCBSV_XQ_INTERLOCK,- : Br if unit is not re-starting 
05 68 AS 0395 1860 UCBSW_BEVSTS(R5),20$ =; on it’s own. 
50 0204 BF 3C baee 1861 MOVZWL #SS$_OPINCOMPL ,RO ; Else, return different error code 
05 0 3 ! 6¢ 20$: RSB 3; Okay to leave now 
24 A2. 53 00 35 1864 30$: MOVL R3,CXBSL_T_IRP(R2) ; Save IRP address 
0094 C3 —D4 A2 1865 CLRL IRPSL_XxQ SETUP(RS) Indicate no SETUP buffer present 
1A A2 32 A3 80 A6 1866 MOV IRPS$W_BCAT(R ), CXBSW_BCNT(R2) 3; Set BCNT in CXB 
;RNGOOO1 > Se D 4 ; 25 MOVa R2,R3 :; Copy IRP, CXB addresses 
AE 1 5 ASSUME NMASC_STATE_ON EQ 0 
AE 1871 ASSUME NMASC_STATE_OFF EQ 1 
04 OODD C5 8 1 8 BLBS UCBS$B_XQ_PAB(RS) .40$ ; Br if padding is disabled 
18 A 08 A 187 SUBW #XQ_C"CNTSIZ,CXB$W_BOFF(R3) ; Else, skip length fieid of buffer 
51 18 AS 3¢ 1874 40$: MOVZWL CXBSW7BOFF(RS),R1 : Get offset to start of data 
a. 2 Se ee 1875 ADDL3 oR3_R > Set R2 to start of header 
F 187% ASSUME XBUF_G SRC EQ XBUF_G_DEST+ “gente 
40 AS 7D F 187 MOVa IRP$G_STATION(R4) ,= ; Store destination address 
62 C2 1878 UF _G_DEST(R2) 


aut 


J 10 
er =JAN-1985 17:49: AX/VMS Macro y04-00 e 4 
TRANSMIT OPERATION -SEP-1984 06:30:48 DRIVER. BUGSRC XODRIVER.MAR: 1. >" Rie 


ASSUME XBUF W TYPE EQ XBUF_G_SRC+6 

MOVQ UCBSG_RQ_PHA(RS),- ; Store our source address 
BUF WG SRC(R2) 

MOVW IRPSWOXG_PROTYP(R4),- ; Store PROTOCOL TYPE 
XBUF W_ TYPE (R2) 


XMT_INITIATE:: ; FAST Interface entry point (FFI) 


stu 


nx 
=~ 
>= 
zz 
ely 


3: Inputs: 

3 R5 = UCB address 

: R3 = CXB address 

3 R2 = Start address for Ethernet header 
4 


Ove #XQ_FC_V_XMIT,CXBSB_XQ_FUNC(R3) ; Set function request in CxB 
ASSUME NMASC_STATE_ON EQ 0 

ASSUME NMASC_STATE_OFF EQ 1 

BLBS UCB$B_XQ_PAB(R5) ,60$ : Br if padding is disabled 


; PADDING Is ENABLED: 


20 A3 


09 00DD 


djust byte count to include size field and store count field. 


MOVW CXBSW_BCNT(R3),= ; Else, store size of data-only 
XBUF_@ SIZE(R2 ;_ portion of buffer in message 
ADDW #xQ_C_UNTSIZ,CXB$W_BCNT(R3) ; And account for count field 


: Allow buffer size up to Ethernet max buffer size for transmit operations. 
60$:  CMPW  CXBSW_BCNT(R3),#MAX_PKT_SIZE ; Is buffer size bigger than 
; Largest Ethernet buffer allowed? 
; Br ifn 


BLEQU 90% rs) 
MOVZWL #SS$_IVBUFLEN,RO ; Assume bad buffer length 
RSB ; ELSE, leave now 


MOVL UCBSL_XQ_CDB(RS) ,R4 ; Get CDB address 

BBC #COB_STS-V_RUN,- ; Br if QNA not running 
COB_B_STS(R4), 1008 

ADDW #xXQ_C_HEADER,- ; Adjust byte count 
CxB$Q_BCNT(R3) ; for header info 


; If running in the SHARED-LIMITED mode, then we must use the destination 

; address from the SHR_ data structure. Unless the given destination address 

; is a multicast oderess. he the  SHANCO-DEFAAT user, we must make sure that 
ven is unique! 


BBC #UCBSV_XQ_ SHARE ,- ; Br if NOT a shared user 
UCBSW~DEVSTS(R5) ,NO_SHR’ ; 


; Try to find @ match on PID/CHAN. Returns pointer in R? 


CXBSL_T_IRP €Q CxB$i_T_UCB : 
CXBSL_T_IRP(R5S) ,100$ ; Br if FFI user, return failure 
R3 ; Else, save CXB address 
CXBSL_T_IRP(R3),R3 : Get IRP address 
™ S F 


1A A 
1A AS 


AAA A AAAI ALAIN ANIA AAAI WII WII nd 


ssh A-h-A-h-A-A-1-1-1-A-1 ele lee eel elle ee 
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RR Try to find the SHR data structure 
; Br if match 


RRRLLELLLASAas 
A.AAAAAOPOPSPIPINININININD 
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set" 


VAX 


XMT_STA 


rePh PERE 


sx once $5 


50 


1A 62 
50 «(1A AS 
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NA driver ga 2012 5 42:58:96 AX/VMS Macro v04-00 Page 41 
START TRANSMIT OPERATION “SEP=1984 00:20:54 (CDRIVER.BUGSRCJXQDRIVER.MAR;: 1 (17) 
19 POPL ® ; Restore CXB address 

HH 100$:  BRW fas ; Else, error 

13 § 110$: POPL R3 ; Restore CXB address 

13e8 CMPL UCBSL_XQ_DEFUSR(RS),R1 ; Is this the default user? 

138 BEQL SHR_DEF ; Br if yes 

i H 

ige$ ; This is a SHARED-LIMITED user. 

1945 BLBS XBUF _G_DEST(R2),NO_SHR ; Br if multicast address 

1966 MOVL SHR_G_BEST(R1),= ; Else, get destination from SHR struct. 
194 XBOF -G DEST (Re) ; ue 

1 “8 MOVW SHR _G-DEST+4(R1),- : oon 

194 XBOF“G_DEST+4(R2) : aa 

1950 BRB NO_ SHR 3; Continue in common code 

132) -DSABL LSB 

1988 ; This is a SHARED-DEFAULT user. 

1955 SHR_DEF:MOVAB UCBSQ_XQ_SHARE(RS),RO =; Get address of SHR Listhead 

1336 MOVL R1 ; Save address of start of Listhead 
1957 10$:  MOVL SHR L OFLCRI) «RI ; Get address of next in List 

1958 CMPL =—sRO,R ; Back at start of list? : 
1959 BEQL SHR ; Br if yes, destination is unique 
1960 CMPL XBOF_G_DEST(R2),- ; Address match? 

1961 R7G_DEST(R1) ; —_ 

1366 BNEQ : Br if no - check next in List 

196 CMPu XBUF _G_DEST+#4(R2),- ; Hi order of address match? 

1964 SHR~G_DEST+4(R1) : “i? 

1965 BNEQ 1 ; Br if not - check next in List 
1308 MOVZWL #SS$_BADPARAM,RO ; Else, bad parameter code 

13e RSB ; Return to caller 

1968 NO_SHR: 

1971 : Do accounting for MULTICAST here. NOTE: this should really 

1376 ; be done upon completion of request, but it is done here to 

197 ; save extra work to check for multicast in the completion 

138 3; section. 

197% BLBC =—_- KBUF_G_DEST(R2),20$ ; Br if NOT multicast address 

197 INCC  COB_C_ABSCTR(R4S ; Count multicast blocks sent 

1978 MOVZ7WL CXBSW"BCNT(R3) ,RO ; Get BCNT 

1979 CNTR RO,CDB_L_MSNCTR(R4),L : Count multicast bytes sent 

1981 ; 

19 § ; are running in point-to-point mode, then queue xmit on wait queue 

+ Z are waiting for run! 

1985 CMPB @NMASC_LINPR 4 72 Are we in PT-TO-PT mode? 

19 U B86 _20_PROTR ) 5 

19 BNEQ 4 i2 Br if not ’ 

19 BBC #UCBSV_XQ_STACK,=- 32 Br if not in stack wait state 

19 uce BEVSTS(RSS 408 =: 

1 INSQUE (R53) SUCBS$Q_XQ_XMTREG*+4(R5);% Else, insert request on wait queue 
19 movz7BL #1,R6 72 Return success 

19 RSB 3% Return to cailer 


— ee ee 


yaad = VAX/VMS 
v04- XMT_START 

4 

4 

¢ 

OOEO D4) «=663—SCis«*O ri 
487 
0487 
3RNGOOO1 oe 
;RNGOO01 0487 
aia si 
3;RNGOO01 8 7 
3;RNGOOO1 O68 
;RNGOO01 56 24 A5 DO O4BA 
3RNGOOO01 048E 
;RNGOOO1 048E 
;RNGOOO1 048E 
;RNGOOO1 048E 
3RNGO001 048E 
;RNGOOO01 048E 
;RNGOOO1 048E 
;RNGOO01 048E 
;RNGOOO1 048E 

;RNGO001 04 
;RNGO001 Q4AA 
;RNGOOO1 O4AA 
;RNGOOO!1 O4AA 
- 03 00 EB OQ4AA 
57 1B AG Q4AD 
4C 13 0480 
0482 
0482 

048 

53 OODC D4 OF 048 

45 1D 048 
;RNGOO01 1A AS) BTS s«04B9 
;RNGO001 3C 048C 
;RNGOOO1 04 1€ 048D 
;RNGOO01 3¢)60—s «BO s«éO GBF 
;RNGOO01 1A AS 04C1 
;RNGOOO1 7E AS 1A AS 90 04¢3 
-1 52 186A C 04C8 
52 § co Rees 
FEOO BF AB CF 
7C AS 82 0403 
4D6 
D6 
06 

09 sé D 

7 i 39 D 
wend 00 be 

78 AS 6042 DE 04 
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QNA driver maths 47:53:06 AX/VMS Macro v04-00 Page 42 
= START TRANSMIT OPERATION -SEP=1984 00:20:54 DRIVER.BUGSRCJXQDRIVER.MAR; 1 (17) 
1993 ; 
1994 ; Insert request on COB transmit request queue and check if transmit 
1382 3 can proceed. 
1997 dos: INSQUE (R3),@CDB_Q_XMTREG+4(R4) ; Insert at end of xmit queue 
1999 -ENABL LSB 
e009 XMT_ALT_START:: ; Alternate start for xmit 
¢ : Inputs: 
‘ 3 R5 = UCB address 
7: 3 R4 = COB address 
:6 PUSHQ Rb : Save R6,R7 
: MOVL UCBSL_CRB(RS) ,R6 ; Get CRB address 
3 ; Skip MAP register useage if MicroVAX I. Also use different number of slots. 
"|; Fe CPUDISP <<790,10$>,- 
af <780,10$>,- 
7 <750,10$>,- 
14 <730,10$>,- 
215 <UV2,10$>,- 
" 16 <UV1,XMT_UV1>> 
18 10$: =; ALL but Microvax I 
*20 ASSUME MAX_C_XMT LE 8 
2014 FFC #0, PMAX_C_XMT=-1,CDB_B_XMTMAP(R4),R7 ; Find a free transmit slot 
A BEQL 20$ ; Br if none free 
oi? : Move CXB info into UCB 
019 * REMQUE @CDB_Q_XMTREQ(R4).R3 =; Get oldest xmit request 
2020 BVS 20$ ; Br if none : ; 
1 CMPW CXBSW_BCNT(R3),- ; Is packet at least minimum size? 
@ @MIN_PKT_SIZE+*XQ_C_HEADER 
° BGEQU§ 15$ ; Br if yes, okay 
“4 MOV amin Put $12 +XQ_C_HEADER,- ; Else, set to minimum 
:6 15$:  MOVW  CXBSWTBCNT(R3) ,UCBSW_BCNT(RS) ; Set byte count 
0 2 MOVZWL CXBSW_BOFF (RS) ,R ; Get offset to start of data 
8 ADDL R ; Compute buffer virtual address 
4 BICW3 #@C<VASM_BYTE>,- ; Get buffer offset 
025 R2,UCBSW_BOF F (RS) : 
o $ : Convert virtual address to physical PTE address 
0 3 EXTZV  S*#VASV_VPN,- ; Get virtual page number 
030 S*#VASS_VPN,R2,R2 3 
031 MOVL  G*MMGSGC_SPTBASE RO : Get the base address of the SPT 
0 § MOVAL (RO)CR2],UCBSL_SVAPTE(RS) ; Set address of the SPT entry 
p 4: The following instruction also sets the data path number to the Direct 
5 ; Data Path. 
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epee = VAX/VMS QNA driver maths 47:48:06 ues Macro v04-00 Page 43 
v04-001 XMT_START = START TRANSMIT OPERATION -SEP-1984 00:20: DRIVER.BUGSRC JXQDRIVER.MAR; 1 (17) | 
04€7 : 
4E7 $ ASSUME VECSW_MAPREG*? EQ VECSB_NUMREG | 
4E7 : ASSUME VECSB_NUMREG+1 EQ VECSB8_DATAPATH 
8 AS DO 04E7 MOVL COB_L_XMTMAP(R4) ,- ; Assume we use preallocated map | 
4A 4EA 2040 CRBSL-INTD+VECSW_MAPREG(R6) ; register. 
5 23 SEC 4) TSTL R7 ; Is mapping slot the preallocated one? | 
ok ri tg BEQL 50$ :; Br if yes = all set ; 
rt rb ; Else, allocate the map registers 
O4FO 045 ; Allocate UNIBUS map registers | 
Bere Of 3388 CLRB CRBSL_INTD+VECSB_DATAPATH(R6) ; Reset data path usage 
00000000'GF 16 O4F 48 JS8 G* IOCSALOUBAMAP ; Allocate UNIBUS map registers 
OC 50 «EB O4F6 2049 BLBS ; Br if one available 
oopc C4 «=6635—COOE =(O4F9 «2050 INSQUE (R$) ,CDB_Q_XMTREQ(R4) ; Re-insert CXB on request queue 
O4FE 2051 20S: POPQ ; Restore R6,R7 
50 01 9A 0501 b3¢ MOVZBL S“#SS$_NORMAL ,RO ; Good return 
05 Babe bez 30$: RSB ; Return to caller 
B202 B32 : Save the map information and map the buffer. 
0808 5087 Los: ASSUME VECSW_MAPREG+2 EQ VECSB_NUMREG 
0505 2058 ASSUME VECSB_NUMREG+1 EQ VECS$B-DATAPATH ane | 
34 AG =DO0 0505 2059 MOVL CRBSL_INTD*+VECSW_MAPREGTR6).- ; Save mapping info 
38 AG47 0508 2060 CDOB_L-XMTMAP(R4)[R7] =; in COB 
0508 2051 50$: SETBIT R7,COB_B_XMTMAP(R4) ; Set mapping slot in use flag | 
22 a3. 57) =—90—s:0510 d6¢ MOVB = R7,, CXBSB-XQ_SLOT(R3) ; Save mapping slot number used | 
00000000°GF 16 0514 3065 JSB G* {OC SLOKDUBAMAPA ; Load map registers | 
Bath Bee > Find next ring entry and insert data | 
52 18 AG QA OSTA 06? , MOVZBL CDB_B_NEXTXMT(R4) ,R2 ; Get next ring entry | 
18 AS «86996 «(O51E 2068 INCB COB_B_NEXTXMT(R4) ; Bump ring pointer — 
FC BF §=©BA 0521 2069 BICB #*C2MAX_C_XMT=-1>,- : Modulo xmit ring size 
18 Ad 0524 2070 CDB_B_NEXTXMT (R45 : 
23 a3 52 «6990 0526 «2071 MOVB = R2,, C}XBSB_XQ_RING(R3) ; Save ring entry number 
52 O009C C44 dO 33 A Oe MOVL L_XRINGVA(R4)CR2),R2; Get ring entry virtual address 
62 B84 0530 207 CLRW XAT Ww FLAG(R2) ; Zero the FLAG word 
vag * +4 B0 b2 ¢ th MOV +i wie : Init STATUS word 
50 1A Ag 3c 60538 2076 MOVZ2WL CXBSW-BCNT(R3),RO > Get BYTE count 
;RNGOOO1 50 D6 053C .1 NCL R ; Round up by one 
“4 50 —s#F F 50 8 a 2081 ASHL #-1,R0,RO ; Convert to WORD count 
A A 4 MNEGW RO, XMT_W_LEN(R2) Store mecsage length (2's complement) 
06 nS ar a 80 54 O88 MOVW  UCBSW_BOFF(RS),XMT_W_ADDR(R2) ; Move byte offset - BAO-BAS 
A6 FO Q54C Bae INSV CRBSL“INTD+VEC Su MAPREG(R6),- ; Insert BA9-BAl 
.. 44 ef 5 89,87, XRT_W_ADDRTR2) it 
$0 “.. oF EF 233 2086 EXTZV «#7, #6, CRBSL_INTD*VECSW_MAPREG(R6),RO ; Get BA16-BA21 
02 a2 50 80 0559 7 MOVW 09 - EAT _u_AbbMni (Re) ; Insert BA16-BA21 & zero descriptor bits 
56 52 00 228 3088 MOVL R2,R6 ; Save xmit ring entry address 
esis sit $60 1 ; Descriptor bit settings are calculated as follows. 
:RNGOOO1 560 °§ : If the beginning address is Even or ODD, then the END address is: 
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~ we VER = VAX/VMS QNA driver -JAN-19 6 VAX/VMS Macro y04-00 Pa 44 
att XMT_START = START TRANSMIT OPERATION gran Po} 1382 40 35:98 DRIVER.BUGSRCIJXQDRIVER.MAR; 1 abs (17) 
;RNGOOO1 56 4 3 
;RNGOOO) 56 5 ; BEGINNING & LENTH, then END address is: 
D4 manent 22 § 3 [ fv “Ey Ev 
3 . 3 ven ven ven 
:RNGOOO1 be 8 : Even Odd Odd 
3RNGOOO1 56 . ; Odd Even Odd 
>RNGOOO1 2° $8 ; Odd dd Even 
50 A000 8F B0 250 O38 MOVW ann OSE N- LOH RO ; Build descriptor flag 
11 7¢ AS) sE9 0365 191 BLBC uces@ BOFF TR ), BO ; Br if even byte boundary at BEGinning 
0869 198 ; Beginning buffer address is Odd 
$383 105 levase #XMT_DSC_V_BEGODD,RO : Else, - yi is Odd 
11 1A AB EB 0560 106 BLB CxS 8 CATTRS) ,80$ ; Br i Ngth, h, 4° is even 
0571 2107 SETBIT ee T Be ee V_ENDODD,RO; fise. roe Fe 
06 A6 «B7 B373 108 DECW X TO LERCRE) ; Increase length oy 1 (complemented) 
08 11 578 2109 3; Continue 
OS7A 2110 3 
Bean 1 ; Beginning buffer address is Even 
04 1A AS E9 OS5S7A 118 70$: BLBC pan a BCNT(R3) ,80$ : Br if even LENgth 
4: guie SETBIT T_BSC_V_ENDODD,RO ; Else, ending is Odd 
01 91 058 115 808: CMPB axa o Fe vV“xXAIT,- 3: Is this a normal XMIT? 
20 A3 0584 2116 CxBSB_ RQ" FUNC (R3) : 
3;RNGOOO1 04 13 0586 al $ ; Br if yes 
3;RNGOOO1 0588 § SETBIT #XMT_DSC_V_SETUP,RO : Else, indicate SETUP function 
RNGOOO1 6 B64 058C -3 90S: CLRW XMT_O_TOR( Re) : Clear the TOR cell 
3RNGOOO1 0107 C4 96 O5S8F 4 INCB CDB-B-XMTCNT(R4) Tally one more reate in progress 
:RNGOOO1 020A C4 «(040 «(90 «2(0593)—Ct—é=«=—CS MOVB =-« @XM@T_TIM,COB_B TIM KMT (RA) ; Stort umit tiner 
3 waren 02 A6 «6550s AB 44 § BISW RO, xXAT_W * ADDRHT (R6J ; Set descriptor bits 
;RNGOOO1 beac -8 ; Poll the xmit ring to see if it went invalid 
3;RNGOOO1 59C ov 3 
3RNGOOO1 059C¢ =—s.«w. 10 POPQ R6 3; Restore R6,R7 
3RNGOOO1 52 0114 C4 D0 O5S9F 11 MOVL COB_L_CSR(R4) ,R2 3; Get CSR address 
:RNGOOO1 O5A4 “16 
3RNGOOO1 OSAS = w17 gs 
;RNGOOO1 OSA4 = £.18 If the QNA has invalidated the TRANSMIT RING, then we must reset the 
2 H Bae -19 ; starting address of the ring List to point to the current entry. 
;RNGOOO01 OE A2 10 Hy ay . 9 BITW #XQ_CSR_M_XMTINV, aticnees- Is Fpemenrs ring still valid? 
;RNGOO01 ig 1 5A8 26 BEQL 1208 r if yes 
;RNGOOC1 51 23 A 9A QO5SAA .28 MOVZBL CXBSB_XQ_RING(R3),R Else, get ring entry number 
;RNGOOO1 51 68 A441 DO OSA 29 MOVL COB_L am. Rl: Get the buffer mapp ng value 
3RNG50001 08 A251 4 58 30 MOVW R1, 2M Th (R2) ; Set address of transmit List entry 
;RNGOOO1 51 FO ef 7 387 31 ASHL #-16,R1,R t ohite down high order address bits 
;RNGOOO1 A2 §$1 90 058C ‘ § Ove R1 XM Weyer tens? 
3RNGOO01 OOE8 D4 63 O€ 3c) . 120$: INSQUE (R$) acdB_Q XMTPND+4(R4)° .° Insert “xB on WAITING queue 
7RNGOOO1 5c5 134 388 ITw  #xQ_€SR_MTCAR,CSR(R2) Is carrier present? 
3RNGOOO1 ) > oe > ee ; BEQL 1308 : Br if not, okay - else 
;RNGOOO1 5¢5 . § 2° INCC CDB_L_BIDCTR(R4) : unt blocks sent - initially deferred 
RN 020A C4 «0469 3¢5 37 130$: MOV #XxMT_TIM,CDB_B_TIM_ nmr (rir? “Start xmit timer 
3RNGOOO1 FEBA 31 OSCA .40 BRW XMT_ALT_START ; Try for more requests 
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XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49: AX/VMS Macro y04-00 P 4 
yoeeOOT XMT_START = START TRANSMIT OPERATION Bruen 8 4 00:30:56 LOR IVER.BUgSRC XODRIVER.MAR; 1 >" i) 
PR 1 CDG) 
+ RNCOOOI Se Se eels ti MicrovaXx I 
3 ° ; Transmit operation on Micro 
?RNGOOO1 (D244 : 
RNG i ED “te ASSURE MAXTC“XRTUVI tf Sax C_XMT ; Must Ll ri 
3 . ; Must not use all rings 
;RNGOOO1 - / 00 fa 5 3 FFC #0,RMRX_C_XMTUV1,CDB_8_XMTMAP(RG)_R? ; Find @ tree transmit slot 
;RNGOOO1 7 13 D 4 BEQL 2208 ; Br if none free 
;RNGOOO1 5D 45 3 
en , 4 31 ; Move CXB data to contiguous buffer. 
7 RN 1 53 00DC BS OF 3 . REMQUE BCDB _G_XATREG(AG) .AS ; Get oldest xmit request 
;RNGOOO01 1D O5SDA 5 BVS 220% ; Br if none 
- 52. 18 A 3c O5pc «(214 MOVZWL CXBSW_BOFF(R3),R2 ; Get offset to start of data 
3 5 cS 43 144 ADDL R3,R2 ; Compute system buffer virtual address 
51 0008 C447 DO O5€3 2145 MOVL  (D8_L_XMT_VA(R4)CR7].R1 : Get contiguous buffer's VA 
8 by Beep 166 PUSHR #*MZR3,R4°R5> ; Save registers 
62 1A AS 368 14 MOVCS CXBSW_BCNT(R3),(R2),(R1)'; Copy the data 
$3 BA O3F 168 POPR #*A<R3,R4.RS> ; Restore registers 
bet 139 ; Find next ring entry and insert data 
52 18 AG GA OSF 133 MOVZ7BL CDB_B_NEXTXMT(R4) ,R2 ; Get next ring entry 
18 AS) 9% B2e8 15 INCB COB_B_NEXTXMT(R4) ; Bump ring pointer 
FC BF «= BA COS F 154 BICB “C2MAX_C_XMT-1>,- ; Modulo xmit ring size 
18 AG OSFC 2155 COB_B_NEXTXMT (R45 ; 
23 A3 35 90 AS 128 MOVB R¢. CXBSB_X0_ rink ; Save ring entry number 
22 as 5 90 060 15 MOVB R?7, CXBSB_xXQ SLOT(R3) ; Save mapping slot number used 
0606 2158 SETBIT R7,CDB_B XMTMAP(R4) ; Set mapping slot in use flag 
52 009¢ ar DO 0608 2159 MOVL COB_L_RRINGVA(R4)(R2),R2: Get ring entry virtual address 
BS 0611 2160 CLR} XMT_ W FLAG(R2) ; Zero the FLAG word 
8000 8F BO 0613 2161 MOV = #XMT_STS LAST. ; Init STATUS word 
08 A 0617 16¢ xmT_@_STS(R2) : 

50 _ 1A AS 3C 0619 216 MOVZWL CXBSW"BCNT(R3) .RO ; Get BYTE count 
3RNGOO01 5 B1 061D ol CMP RO #MIN_PKT_SIZE+xQ_C_HEADER ; Is packet at least minimum size? 
7RNGOOO1 fs 620 § BGEQU ; Br if yes. okay : 
;RNGOOO1 50 c= § 6 ¢ ‘ MOVL #MIN_PKT_SIZE+XQ_C_HEADER,RO ; Else set to minimum 
;RNGOOO1 0625 ae ;eeeere 
;RNGOOO1 0625 § ; The following instruction is needed to keep the code honest, that 
;RNGOOO1 0625 ° : figures out whether the end byte is odd. 
sR 1 8 8 pteeere 
2R 1 6 . : 
;RNGOOO1 1A A3 gn AA 06 .10 Bic #1, CXBSW_BCNT(R3) ; Make the count look even! 
3RNGOO01 0 06 9 —_,11 2108: INCL RO ; Round up by one 
-4 50 —s#F F of : 2168 ASHL #-1,R0,R0 ; Convert to WORD court 

06 Ae 9 & 0 169 MNEGW RO,XMT_W LEN(R2) ; Store message length (2's complement) 

50 00C0 (447 0D 4 2170 MOVL  CDB_L_RMT_PA(R4)CR7],RO : Get contiguous buffer's PA 
9% A250 1! A 2171 MOVW RO, RMT Ww _ADDR(R2) ; Move buffer address - BA0O-BA0S 
0 FO 8F o 172 ASHL #-16,R0,RO : Shift down hi order address Lines 
02 A2 6 B0 4 173 MOVW RO, XMT_W_ADDRHI (R2) ; Insert BA16-BA21 & zero descriptor bits 
56 2 00 peer IN MOVL R2,R6 ; Save xmit ring entry address 


———————————————————————— —_ 
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KQDRIVER - VAX/VMS QNA driver -JAN-1985 17:49:06 VAX/VMS Macro v04-00 
vaya XMT_START = START TRANSMIT OPERATION -SEP-1984 00:20: 96 DRIVER.BUGSRC JXQDRIVER.MAR; " ge 55, 
= RNGROD) rh | i; Descriptor bit settings are calculated as follows. 
i \ tA $ ; If the beginning address is Even or ODD, then the END address is: 
iR 1 64A :5 : BEGINNING & LENTH, then END address is: 
:R 1 4h “$ : Even "Even Even 
3 1 64A 8 8 Even Odd Odd 
;RNGOO01 64A + $ Odd Even Odd 
see's dh rh If 3 Odd Odd Even 
ERNGOOD| 50 A000 8F 80 ah 1 mov ant pst -YAL IDS ; Build descriptor flag 
RNGOOO| FF28 831 pee 14 BRw 708 ~ ; Continue - always even start buffers! 
|RNGOOO1 0632 "16 2208: PoP R6 3 Restore R6,R7 
-14 50 01 9A 065 190 MOVZBL S*#SS$_NORMAL ,RO ; Good return 
05 bo28 131 RSB ; Return to caller 
0659 198 -DSABL LSB 
0659 2194 
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XQDRIVER = VAX/VMS QNA driver -JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa 47 
v04-001 RCV_FDT = RECEIVE 1/0 OPERATION FOT ROUT =3t8= 1382 00:30:48 DRIVER.BUGSRCJXQDRIVER.MAR; 1 = (19) 
$33 136 * -SBTTL RCV_FDT = RECEIVE 1/0 OPERATION FDT ROUTINE 
639 138 ; RCV_FOT = RECEIVE I/0 OPERATION FDT ROUTINE 
Bees 0} ; Functional description: 
§e89 ¢ ; The specified buffer is checked for accessibility. The buffer address and count 
0659 8 ; are saved in the packet. Then IPL is set to device fork IPL and if a message is 
0659 4 ; available the operation is completed; otherwise, the packet is queued onto 
bees 05 ; the waiting receive List. 
beae 5 ; The QI0 parameters for WRITES are: 
659 8; Pl = Address of the data buffer 
0659 9; P2 = Size of the data buffer 
beee 19 3 P5 = Optional address of the buffer to receive the source address 
0659 2212 ; Inputs: 
0659 i : 
0659 14; R3 = IRP address 
0659 2215; R4 = PCB address 
0659 2216; RS = UCB address 
0659 2217 ; R6 = CCB address 
0659 si8 : R7 = Function code 
8038 ah : AP = Address of the first operation specific qio parameter 
0659 sss) : IPL = ASTDEL 
0659 22 ¢ 3 
0659 2223 ; Outputs: 
0659 2224 ; : : 
0659 2225 ; RO = Status of the receive qio operation 
0659 2226 ; R3 = IRP address 
0659 2227 ; R5 = UCB ADDRESS 
0659 2228 ; 
0659 $560 : R1,R2 are destroyed. 
0659 2230 ;-- 
0659 2231 ; 
0659 $538 RCV_FDT:: ; Read operation FDT 
0659 $53 3 
24 See 3; Check the request params 
30 AS = B4S sé 59 $533 CLRW IRP$W_BOFF (R3) ; Set no quota to here 
50 OC 9A 065C 2237 MOVZBL S“#SS$_ACCVIO,RO ; Assume access violation 
57 10 AC DO O65F 2238 MOVL PS(AP),R7 ; Get address for source address 
33. = «13 pees $20 BEQL 10$ ; Br if none 
066 40 IFNOWRT #RHDR_C_DATA,(R7),20$ , Check for write access to buffer 
07 £0 0668 41 BSS #IRPS AGBUF ,- ; Br if diagnostic buffer given 
28 2A A3 0660 4g IRP$W_STS(R3) ,10$ : pt : 
51 1A 9A 067 4 MOVZBL #RHDR_C_LENGTH,R1 ; Get size of header buffer 
53 DD 067 44 PUSHL R ; Save IRP address 
eeeteedl 18 b62 45 JSB G*EXESALLOCBUF 3; Allocate header buffer 
8ED 678 46 POPL pe 3; Restore IRP address 
40 50 €9 O067E 4 BLBC RO,208 :; Br if a} Location failure 
4C AS. 52 00 pes $8 MOVL R2, IRP$L_DIAGBUF (R3) : apve buffer address 
wor ef A8& O33 4 BISW #IRPSM_DIAGBUF , IRPSW_STS( ) ; Indicate diag buffer present 
688 $520 ASSUME RHDR_L_DATA EQ 0 
82 OC A2 9E 0688 51 MOVAB RHDR_T_DATA(R2),(R2)*+ ; Set address of start of data 
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82 51 
8 13 
14 
51 04 AC 
20 

3C A 

00000000 ' GF 
2A a3 20 

1 

06 5 
00000000 ' GF 
FC7C 
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ma. 
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48 
(19) 


RHDR BUFFER EQ RHDR_L_DATA+4 
R7,¢ ; Set seer buffer address 
RHR W SIZE EQ RHDR_L BUFFERS 
R1,(R2T+ Save size of allocation 
RH bk R_B_TYPE EQ RHOR_W sites 
aD INSt- BUF IO, (R2)+ Set structure type 

S*aSS ~BADPARAM. RO : Assume illegal size 
P2(AP)>R1 3; Get size 
208 ; Br if zero - illegal 
P1(AP) ; Get user buffer address 
RO Robe’ XQ _DATBUF(R3) ; Save user VA for completion 
Or EXESRE RDCAK ; Check the buffer 

: return on NO ACCESS) 

#IRPSM TPLUns) - IRPS$w_STS(R sy° ; Allow data yy 
UCBsB F ; Raise IPL to lock data base 

RCV_STAR ; Process the request 
R ; Br if error 
R020 serum : Else, take normal return 
ABORTIO ; Abort the request 


= 


XQDRIVER = VAX 
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FPAAPAAPOOAAAS 
Se ee ee ee ee ee et ee et et et ee |g) 
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50 962004 8F 

FS 68 AS 

;RNGOOO1 54 00C8 3 
-2 9 
01 

EB 0246 C4 

51 Q0A0 C5 


03 
09 68 AS 


0027 
d9 
S51 618 Al 
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bre .SBTTL RCV_START = START RECEIVE 1/0 OPERATION 
: RCV_START = START RECEIVE 1/0 OPERATION 


77 
4 
< 
De 
ms 


~~ 


: Functional description: 

Check for device active. Receives cannot be queued to the UCB receive 
Queue unless the UCB has been initialized via routine START. They 
cannot be put in the IRP queue since this could result in non-sequential 
receive processing due to the existence of the separate receive queue. 

; Inputs: 


a = IRP address 
R5 = UCB address 


IPL = FIPL 
Outputs: 


wooo 


WO OCOVOuUS wr" OO0On~nc PA 


oo 
Ar 


RO = Status of receive request 
RG = COB address 


R1,R2 are destroyed. 


3333 


oO 
oO 


08 iNACT_ERROR 
0 


mOVZUL #SS$_DEVINACT,RO ; Setup return status 


Be 3; Return to cailer 

38 -ENABL LSB 

O07 RCV_START:: ; Start receive 1/0 operation 
08 BBC #UCBSV if UCB is not in RUN mode 


oS 
oO 


xQ_RUN,- ; Br 
UCBSW_BEVSTS(RS), INACT_ERROR 
MOVL UCBSL_XQ_CDB(RS) ,R4 ; Get CDB address 


BEQL 408 ; Br if none 
BBC #COB Br if QNA not running 


STS_V_RUN, = : 
CDB_6_STS(R4), INACT_ERROR 
MOVAB UCBSQ"xQ_RCVMSG(R »,R1 ; Get address of UCB received messages 


; If running in SHARED mode, then use the Listheads in the SHR_ 
; data structure. 


: BBC —«- FUCBSV_XO_ SHARE, - ; 
UCBSW7DEDSTS(R5) 5S: 


Try to find a match on PID/CHAN 

BSBW MATCH_SHR Try to find shared user 

BNEQ INACT_ERROR ; Br if none - inactive user 

MOVAB SHR_Q_RCVMSG(R1),R1 ; Get address of received messages 
; Check to see if message is available 


$: REMQUE @(R1)+,R2 


Br if UCB is NOT SHARED 


ve 


; Dequeve a received message 


WALA AI AIA I AI AIA AI AI AAA AIA 
AAA ORIPORIPONIPUIININ) 2 a ne 


WR OOD NA NEW $$ O ODNOAOUS WO 


Pa 49 
9 (20) 


; «dump pointer to end of list pointer 


setae 


OA 20 AS 
50 = 0870 BF 
144A 


G 11 
AX/VMS Mace 
BVS 10$ ; Br if none 
; Complete receive with available message 
BBW EANISHACV_10 
BRB $ 


DCOnNOUWs Pa 
7 


AANA 


; Complete the receive 
3; And exit 


; Queue IRP for future message arivial unless IOSM_NOW specified 


BBC #10$V_ NOW, IRPS$W_FUNC(R3),20$ ; Br if not READ NOW 
MOVZWL #SS$_ENDOFFILE,RO ; Set no message status 
BSBW DONE ; Complete the 1/0 

BRB 3; And exit 


tee Gee 
oO 
bad 


; Queue the IRP to UCB receive wait queue 
UME UCBS$Q_xXQ RCVREQ EQ UCBSO xa - leant 
E RCOMSG+ 


gos: INSQUE ; Put packet on waiting List 
$:  MOVZBL $*#SS$_NORMAL,RO : Set Q10 status return 
40$: RSB ; Return to cailer 

-DSABL LSB 


VIEW O OONOUW Fw O 


PUPAE BB BE EE 


or 
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Fi -SBTTL SUBROUTINES TO FIND SHR DATA STRUCTURE 
: Subroutine to find SHR data structure for user 
Inputs: 


Re = Address of IRP 
R5 = UCB address 


stu 


2 


PIAA III IFPI DI) at a st tk kk kt eee 


ANT D DD PP WMNMNANMAANAAMN AAA AAAN SE = MOD OAWWOD ODINNOOOOCOOCOCOCOOOOCOCOOOO Zz 


m 
=5 
r=) 
a 
"> 
bo ee 
Ss 


Outputs: 
ki = Address if SHR data structure if match 
RO is destroyed. 
Z7-Bit set then match. 
Z-Bit clear then no match. 


SOSSSDOCCOCOCOCCCS 2 


SNS NNN NNN Nt 


MATCH_SHR: ; Try to find shared user 
MOVL y BSL_XQ_DEFUSR(RS),R1 ; Get address of default user 
$ ; Br if no default user 
CHECK_SHR ; Check for match 
; Br if match 
10$: UCBSQ_XQ_SHARE(RS),RO ; Save address of Listhead 
MOVL ; Copy Listhead address 


SNIP AAA OAOAOOIUIN 


FUN" OOONAUES WH OWOon 


‘ 
20$: VL ( 1 ; Get next in List 
R1,R ; Back to start of list? 
; Br i es - no pid/chan match 
or match 


OOOOCoocccod 


if none 
8 ; Return in success 
788: ; Return match failure 


MOFNOOUD US]—00 

OWSOO—— OWNOOKU 
C92] 433090 GVo0-—-0 
MO—NWOW9  OMWOWO 


+ 


Subroutine to check if PID and SHR data base match up 


= Address of SHR 
= Address of IRP 


set then match. 
clear then no match. 


CHECK_SHR: Check for match with SHR data base 

TSTL IRPSL_PID(R3) ; Is this an Internal IRP user? 

BLSS 10$ ; Br if yes, only one allowed per UCB 
; Normal Q10 user 

CMPL RPSL_PID(R3),SHR_L_PID(R1) ; PIDs match? 

BNEQ 0$ :; Br if no - try for next 

: Else, continue checks 

: Internal IRP user 


10S:  CMPL ~=—sUCBSL_XQ_PID(RS),SHR_L_PID(R1) ; Is this the Internal user? 


0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 


7 
7 
7? 
7? 
7? 
7 
7 
7? 
7? 
7? 
7? 
7 
7? 
7? 
7 
7 
? 
7? 
7? 
7? 
7? 
7? 
? 
? 
7? 
7 
? 
7 
7 
? 


BEES FANNIN ANA AAA 
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749 2614 BNEQ 30$ Br ifn 
74B 2415 gps: CMPW IRPS$W_CHAN(R3) ,SHR_W_ CHANCRT)  ; channate match? 
P30 $218 0$: RSB 3 Return to caller 
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‘ -SBTTL ALT START = ALTERNATE START 1/0 ROUTINE 
ALT_START = ALTERNATE STARTIO I/0 ROUTINE 
Functional description: 


XQDRIVER - VA 
vourOUT ALT 


“sx 
—™ 
>< 
zz 
“mM 
‘so 
>> 
xz. 
=s 
Do 


This routine is called by the Executive to pass an “internal” IRP 

to the driver. ‘‘Internal’’ IRP'’s are those not built via Q10. 

These IRPs are used by signer level software used to request 1/0 and 
should not be confused with the IRPs built and passed by the 
Transport layer to NSP. The action here is to setup the IRP fields 
as if the packet had been processed by the FDT routines. 


Inputs: 


a = IRP address 
R5 = UCB address 


ALL pertinent fields of the IRP are assumed to be valia. 


Po SDD YY 


FF AWN Ironononornononononen 


OOOCOOOCOOOCOVOOCCOCOCOOCCoO 
> >>> >>> >>> > >>> > > > > > ee 


FUPUPUSUSUSOSUSUSUSOS SUSU SSSI 


OO Be a a i i a a ee a ed ed 


8 IPL = FIPL 
8 re Implicit inputs: 
8 at IRPSL_SVAPTE(R3) = System VIRTUAL address (not physical PTE address) 
Boe at Outputs: 
075 £03 RO-R5 may be garbage 
ee 
$78 450 ALT_START:: 3 oscert an “‘internal”’ IRP 
01 €0 0Q75 451 BBS #IRPS$V_FUNC,- : If BS then read function 
2D 2A A3 075 43¢ IRPSW_STS(RS) ,10$ 
OOcE cS B0 075 45 MOVW UCBSW_XQ_PROTYP(R5),- ; MUST be a non-promiscous user 
3A AS 075 454 $W_XQ_PROTYP(R3) 3 
52 2C AS 00 075 455 MOVL IRPSL_SVAPTE(R3) ,K2 ; Get address of start of data 
51 62 of C th $28 SUBL3 #xQ “HEADER, (R25 ,R1 ; Get the xmit buffer address 
51 C2 0764 2465 SUBL R2, ; Form offset to start of data 
18 As 51 4 0767 $38 MOV R1,CXBSW_BOFF (R2) ; Store offset in CXB 
OA A 1 Boer 45 MOVB #DYNSC_CRB CXB$B_TYPE(R2) ; Set structure type to CXB 
OOpc ¢5)—91 76 460 CMPB —sUCB$B_Q_PRO(RS) -- 3% Point-to-point mode? 
773 2461 #NMAST_LINPR_PO! 
0 12 0774 106 BNEQ 72 If so, 
40 A 7C¢ £78 46 CLRQ IRP$Q_STATION(R3) oh Pick destination from SHR block 
5 3 77 464 5$: PUSHL 3; Save IRP address 
FCO 0 0778 2465 BSBW XMT_START 3; Start transmit operation 
5 sen 77E 246 POPL 8 ; Restore IRP address 
4 «1 1 ree BRB 308 3; Continue 
52 2C a3 D 7 3 469 108: MOVL RPSL_SVAPTE(R3) ,R2 ; Get address of input buffer 
08 1 7 470 BEQL 0% ; Br if none 
;RNGOOO1 54 o0cec D 789 1 MOVL UCBSL_xQ coe Rg) ms ; Get COB address 
-2 2C AS 4 . ‘ 475 CLRL IRPS$L_SVAPTE(R3) ; Make sure SVAPTE is cleared 
791 267 : The driver must be prepared to process chained buffers returned from 
791 2476 ; the higher levels. 


NATE START 1/0 ROUTINE 
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; Save address of next in Link 
; Clear the Link cell 


; Else 


a 
; Get back address of next in chain 
; Br if more to return 


Start receive operation 
Br if error 
Return to caller 


; Post the 1/0 request in error 


d it to the receive List 
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yOeeO0t SETMODE_FDT = SET MODE 1/0 OPERATION FDOT -SEP-19384 b0:30:90 DRIVER.BUGSRCJXQDRIVER.MAR; 1 ad (23) 
IRE 130 -SBTTL SETMODE_FDT - SET MODE !/0 OPERATION FDT DISPATCH ROUTINE 
Pe £38 SETMODE_FDT = SET MODE FDT PROCESSING 
79E 2494 ; Functional description: 
796 5495 r 
79E 249 This is the fdt routine for setmode functions. 
1433 135 There are three functions based on subfunction modifier bit. 


NOTE: That there is no difference on a request to shutdown a line or 
a he po ad However, a request to startup a circuit is ignored 
completely. 


The Q10 parameters for SETMODE are: 
P2 = Optional address of buffer descriptor for extended characteristics 


The Subfunction modifiers are as follows: 


1) CHANGE MODE -- NO MODIFIER BIT. 
This function is done in the STARTIO routine. Control is passed to 
EXESSETMODE to validate the new mode buffer and queue the packet. 


2) INITIALIZE THE UNIT == IOSM_STARTUP SET. 
This function is done partially here and the remainder in STARTIO. 
The action here is to pick up the user buffered 1/0 quota. The quota 
taken from the user is in IRP$W_BOFF. This value will be the 10S8+2 value 
at 1/0 done. The mailbox is enabled and a receive is started. 


3) SHUTDOWN UNIT -- IOSM_SHUTDOWN SET. 
This function shuts down the unit and get renal ty resets the mode. 
A CANCEL 1/0 is performed, all outstanding 1/0 is completed, the 
message blocks are all returned and the unit is left in an idle — 
state. This function cannot be done here and the FDT processing is 
that of all SETMODE operations. 


4) ATTENTION AST == IOSM_ATTNAST SET. 
This function sets up an AST to be delivered when a change of 
status occurs on the QNA, 


ODOOoOoOoOoOoCoo Xo 


Inputs: 
k3 = IRP ADDESS 
R4 = PCB ADDRESS 
RS = UCB ADDRESS 
R6 = CCB ADDRESS 
R7 = FUNCTION CODE 
AP = ADDRESS OF THE FIRST Q10 PARAMETER 
IPL = ASTDEL 
Outputs: 


BEEP EE FAAP 4 = ee 


PAE 20 ONO NEU 8 OD NOAM EWI  S OD NO UNE WI OOO NOU FW" 0 0 


R3 = IRP ADDRESS 
R4 = PCB ADDRESS 


Be Se Se Se Ge Ge Se Se Se Ge Ge Ge Ge Ge Se Se Ge Se Se Se Ge Ge Se Ge Ge Se Se Se Ge Ge Ge Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Se Se Se Ge Se Se Se Se Se Se Ge Ge 
aa 
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CA 


BA 
0094 ¢3 
0084 &F 


04 
03 64 AS 
FB8B 


50 


57 
5C 57 


20 A3 
08 


57 00C0 C5 
00000000 ' GF 


12 68 AS 
OOAO C5 
61 51 


0 

228 
58 
50.01 


51 44 AS 
00000000 ° GF 


51 


1457 07 


32. 28 AS 
58 
1B14 
d8 


D7 57) (06 


0060 BF 
68 AS 


cs 


= VAX/VMS OQNA d 
SETMODE_FDT = § 
796 2547 
79 3548 
796 554 
796 5550 
Sror $883 
Soe $228 
4 O79— 5554 
C O7A1 2855 
& O7AG 2556 
ie 
FAP $228 
31 9782 3560 
785 5561 
80 0705 256¢ 
E1 0789 956 
0780 5564 
07BD 5565 
0780 5566 
DE 078 5567 
6 O7Cg 3568 
o7ca 5569 
07c8 5570 
e9 o7¢8 5571 
ree 2578 
96 O7ce 557 
Di 0701 557% 
13 0704 9875 
D 0706 2576 
0 0708 557 
BED0 07DB 5878 
9A O70E 5579 
D0 O71 39580 
17 0765 3581 
O7EB 2582 
O7EB 35 
O7EB 3584 
O7EB 3585 
O78 2586 
E1 0768 55 
over 2588 
O7F3 55 
O73 2590 
3c O7FB 5891 
Or 2598 
pe 7 359 
0 O7FE 559% 
11 0801 3 
eI ; 3$ 
598 
As 599 
160 5600 
15 $063 
11 1 ras 


ms 


411 
ver ie 
MODE 1/0 OPERATION FDOT 5-SEP- 


RS = UCB ADDRESS 
RO-R2,R6 are destroyed. 


1986 0 


oe 


GPO Sete ee ee ee 
‘ 
] 


ETMODE_FOT:: 
CLRL IRPSL_SVAPTE(R3) 
CLRQ IRPSL-MEDIA(R3) 
CLRL $L-xQ_SETUP(R3) 
MOVZWL 4 #SS$_BEVOFFLINE,RO 
BBS C@SV_ONLINE,- 

UCBSw_STS(RS),5$ 

BRw ABORTTO 

5$: MOVW IRPSW_FUNC(R3) ,R7 
BBC #10$V_ATTNAST,R7, 308 


: User is requesting an attention AST 


AX/VMS Macro v04-00 


7:49:06 P 5 
6:30:98 DRIVER.BUGSRC XODRIVER.MAR: 19" 3% 


SET MODE FDT processing 

Set no buffered packet 

; Reset mode data area 
Indicate no SETUP buffer yet 
Assume unit if offline 

Br if unit online 


Else, abort the I/0 request 


Get entire function code 
Br if not attention AST 


MOVAL UCBSL_XQ_AST(R5),R7 ; Get address of AST List 
JSB G*COMSSETATTNAST ; Set up attention AST 
ASSUME UCBSV_XQ_INITED €Q 0 
BLBC UCBSW_DEVSTS(RS), *0$ ; Br if protocol not ective 
MOVAB UCBS$Q_XQ_RCVMSG(%5),R1 ; Check for empty receive list 
CMPL R1, (RT) ; Enpty? 
EQL 10$ ; Br if YES, no need to inform user 
PUSHL R3 ; Save IRP address 
BSB POKE _USER ; Inform user 
POPL R3 ; Restore IRP address 
108: MOVZBL S“#SS$_NORMAL ,RO ; Set success , 
MOVL UCBSL_DEVDEPEND(RS).R1 ; Get device dependent information 
20$: JMP G*EXESF INISHIO ; Complete the 1/0 
; On a circuit request, 
: If this is a shutdown then perform a SCANCEL and clear the RUN flag. 
3 If this is a startup then set the RUN flag. 
25$: BBC #10SV_SHUTDOWN,R7,27$ ; Br if not a shutdown request 
SETIPL UCBSB_FIPL(RS) ; Sync acces to UCB & CDB 
CLRBIT #UCBS9_xXQ_RUN,- ; Clear the RUN flag 
UCBSW_BEVSTS(RS5) 
MOVZWL IRPSW~CHAN(R3) ,R2 . Get channel number 
ASSUME CANSC"CANCEL EQ 0 
CLRAL ; Set SCANCEL function 
BSB CANCEL 3; Perform a CANCEL 
BRB 10$ ; Complete the request 
27$: BBC #10$V_STARTUP,R7,10$ ; Br _if not a startup request 
CLRBIT #XMSV ERR_START UCBSL_DEVDEPEND(R ) ;% Clear start error flag 
BISw #UCBSA_XQ~START‘UCBSM_XO_STACK,- ;% Set start and stack states 
uCBSu_BevSTS(R5) 72 
SETBIT #UCBSV_XQ RUN,- ; Set the RUN flag 
ucesu_DEVSTS(RS) 
BRB 10$ ; Complete the request 


| 
————— 
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XQDRIVER = VAX/VMS QNA driver 97 10° 138? 47:58:06 AX/VMS Macro v04-00 Page 3 
v04-001 SETMODE_FDT = SET MODE 1/0 OPERATION FDOT -SEP-1984 00:20:54 DRIVER.BUGSRCIJXQDRIVER.MAR; 1 (23) 
19 2604 ; 
19 2605 ; For everthing except Attention ASTs we must make sure CDB is present 
1? $ 3 and we must verify the P2 buffer. 
:RNGOOOT 00c8 C5 05 19 sid S0s: Ist yoBSL_x0_CDB(RS) : Is coe there? 
169 28 1F gif BSB ALLOC_CDB ; Else rllocate CdB8 
98 50 0 : 61g BLBS_seR : Br if successful 
50 0126 BF 3c 61 MOVZWL #SS$_INSFMEM,RO > Set error return 
FB13 1 8 . ete 338: BRw ABORTIO ; Return error 
95460 38 $18 35$ BSBW eet HAR _BUF ; Get P2 characteristics 
F7 50 3 1 BLB RO,33$ ; Br if error = Abort 1/0 
52. FB41 CF 3 618 MOVAB LINE PARAM_WO,R2 ; Assume the Line parameters 
05 5 09 3 619 BBS #10$0_CTRL nl cee ; Br if Line request 
52 F8BE CF 3 C 2620 MOVAB CIRCUTT_PARAM, ; Else, use the — parameters 
1005 3 41 2621 36$: BSBW VALIDATE_P2 ; Validate the P2 parameters 
9— 50 =€9 4 26 § BLBC RO ; Br if error 
AO 57 09 €1 0847 26 BC #10$V_CTRL,R7,25$ : Br if not a LINE request 
0848 2624 SETIPL UCBSBFIPL(RSS 3; Sync access to UCB's 
1¢C8 3460630 «(O84F 2625 Ss SAV_MOLTI ; Save the multicast address List 
0090 c3 D4 ones 6 $ CLRL IRP$L_XQ_SHR(R3) ; Assume exclusive user 
03 £1 085 6 BBC #uces?_xd ore ~ ; Br if not a SHAPED user 
16 68 A5 0858 6 : UCB$W_DEVSTS(R5S,40$ —s; 
0858 2630 ; Allow the shared user to change the destination node with which 
8 28 $3) 3 it is communicating. 
FEB2 30 0858 $38 ' BSBW MATCH_SHR ; Else, try to find shared user 
11 12 O85E 2634 BNEQ 40S : Br if none found, skip it 
0090 c3 51 £4DO 086 635 MOVL R1,1RP$L_XQ_SHR(R3) ; Save the SHR data structure address 
12 Al DO 086 6 § MOVL SHR G_DEST(R1),- 3; Save the current destination user 
00D0 C5 0868 63 UCBSG-x0_DES(R5) : address in the UCB 
16 Al BO 0868 2638 MOVW SHR G-DEST+4(R1) - : “sn 
00D4 C5 O86E 639 UCBSG-XQ_DES+4(R5) : al 
0871 2641 : Now we will set the parameters given in the setmode request. But, 
0871 og : first if the DEQNA controller is inited we will use the current 
B85} ret ; hardware settings for the defaults. 
3RNGOOO1 51 00c8 CS DO 0871 .1 40$:  MOVL  UCBSL_xQ_CDB(RS).R1 ; Get CDB address 
-2 Bare 647 ASSUME CDB_STS_QJ_INITED EQ 0 
13 0246 C1 £9 a76 o78 BLBC CDB-B_STSTR1) ,45$ H Or ff gentrat ler net enabled, use 
51 0249 C1 9E 6 7B 2650 MOVAB CDB_B_SETPRM(R1),R1 . Get address of setable parameters 
52 00E1 C5_—s9E 0 651 MOVAB UCBSB7XQ_CDBPRM(RS).R2 ; Get address of UCB parameters 
50 1 QA 65 MOVZBL #UCBSC_xG_CDBPRM,RO 3: Get size of parameters to move 
2 1 4 8 2655 42$: MOVB (R1)+, TR2T+ ; Store CDB parameters into UCB 
FA 50 F 654 SOBGTR P ; Loop if more 
52 FTE6O CF 9 655 45$: MOVAB LINE_PARAM_WO,R2 3; Get address of verification table 
1DE 3 9 626 BSBid CHANGE _PAREM : Change the parameters 
51 0090 a D 96 265 MOVL JRESL_2O_SHR(RS) AI ; Get the SHR structure address 
oc. 1 98 O28 BEQL ; Br if not present, skip it 
00D cs Dd 9D 26 MOVL UCBS$G_XQ_DES(R5),- ; Else, reset the destination user 
1 al 0 > At 060 an Meta t Lt ee 3; address into the SHR structure 
0004 cS iB A Vid * . gees adil 
16 Al O8A7 2662 SHR_G_DEST+4(R1) : aaa 
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xQDR R = VAX/VMS QNA driver =JAN=1985 17:49:06 VAX/VMS Macro V04-00 | 
ye SETMODE_FDT = SET MODE 1/0 OPERATION FDT ~eE p19 4 00:3 £06 DRIVER. BUGSRC MQDRIVER. MAR; ys ait 
Ag 63 
bed 508: BBC #10$V_SHUTDOWN,R7,60$ :; Br if not shutdown request 
666 ; Shutdown protocol request 
668° ASSUME UCBSV_XQ_INITED 


bes BL ys yeesu. -DEVSTS(RS), 55° : Or if still inited 
BRW $ 
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; For a user wishing to run in promiscuous mode, the requirement is that 
res ; there be no other promiscuous users ee or a non-promiscuous user, 
; there must be no other users running with the same protocol type. 

; MOVAB MATCH_PROTYP,RO : Get address of Action routine 


3 assume non-PROMISCUOUS user 


seotentied 9E 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE-OFF EQ 1 


BLBS UCBS$B_XQ_PRM(RS) ,90$ :; Br if NOT a PROMISCUOUS user 
The promiscuous user must have PHY_IO privilege 


1B OODE CS EB 


03 68 AS 8 
FF2A 1 6 complete 1/0 request now 
21 a3 3 : ? 55$: MOVB #xXQ_FC_V_STOP,IRP$B_xO rink thts $ Set internal function code 
O3F 1 6 BRW QUEPKT™ ; Queue request to QNA 
674 60$: BBs #1O$V_STARTUP,R7,80$ ; Br if startup function 
of ore $e: Bow Thos : Else, must 4 change mode 
3 ; Startup protocol request 
2143 00 90 pate 8 ics MOVB #XQ_FC_V_INIT,IRPSB_XQ_FUNC(R3) ; Insert internal function code 
asce 681 ; If the UCB is wireedy initialized for SHARED use, then we will 
08C6 26 ¢ 3 check to make sure that the SHR struture exists. If it does then 
bare ? : the share structure must be active, by definition. 
0090 cS dS tes 685 TSTL parse. XQ_SHR(R3) 3; Was the SHR structure present 
f 6 O8CA 26 $ BNEQ ; Br if Xes streaty started 
03 €0 O8CC 26 #UCBSV 0, SHARE ; Br if SHARED UCB, ingore status 
61 68 AS O8CE 2688 ucose “BEVSTS(R 5, 125$ ; ..make user a shared user 
08D1 689 ASSUME uCBsy— INITED Qa 0 
EA 68 AS E8 08D! 690 BLBS UCBSW_ “HEU Te (Re). 0$ s Or if ptrossy started 
8 DS 2691 ; «check multicast address List 
¢ £1 DS 269 BBC #UCBSV_XQ_PROTYP,- ; Br if no protocol specified 
43 68 A 0 4, UCBSW_BEvSTS(R5),100$ ; ..error 
A 695 ; Check if protocol type is to be shared 
03 «(91 A 2697 © CMPB 0s #NMASC_ACC_EXC ; Is this PROTOCOL TYPE for exclusive 
0008 ¢5 C 2698 UCBSB_XxC “REC(RS) : use 
51 12 : $99 BNEQ 125$ ; Br # not 
' 44 : Check protocol type for uniqueness 
51 OOCE CS 3C¢ i 88 : MOVZWL UCBSW_XQ_PROTYP(RS),R1 ; Get protocol type 
6 
6 
6 
6 
6 
C 
D 
D 
) 
D 
D 
; 
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The buffers are immediately deallocated, but this pre-allocation will allow 
; the pool to grow if necessary! This must be done here, before we run on the 
; interrupt stack. 


XQDRIVER = VAX/VMS QNA driver o728 985 17:49:06 VAX/VMS Macro v04-00 Page 59 
v04-001 SETMODE_FDT = SET MODE 1/0 OPERATION FDT = enn 18 4 00:20:54 (CORIVER.BUGSRCJXODRIVER.MAR:1 (23 
veectendl '* 9E rs 2719 MOVAB MATCH _PROMTYP,RO 3; Get address of Action routine 
£ 720 IFPRIV PHY_10,90$ :; If user has privilege, then okay 
1€31 0 FF 2721 BSBW an ; Else, Restore a AF multicast list 
50 ge C é 7 § MOVZWL #SS$_NOPRIV,RO ; Return error - 
51 0618 8F C 09 7 MOVZWL FNRAS Ce _PCLI_PRM,R1 ; Return the bad parameter 
FED8 1 Q90A 2724 BRW a 3; Finish the 1/0 request 
90D 2725 90$: PUSHQ ; Save PCB, UCB addresses 
;RNGOOO1 54 00C8 CS 00 091 1 MOVL SCBSL_XxQ_CDB(RS) RG : Get ag Lanvaee 
-2 60 16 091 728 JSB (RO) 3; Try to find exact match 
91 729 POPQ RG : Restore PCB, UCB addresses 
2250 +€9 BIA 4 9 BLBC RO,130$ ; Br if none found - okay 
Bate 13 ; Bad protocol type 
51 OBOE 8F 3C $910 734 100$:  MOVZWL #NMASC_PCLI_PTY,R1 ; Return bad parameter code 
oe. 43 £ 736 BRB 1208 ; Finish error reporting 
03 4 , , : Bad quota calculated 
51 0451 BF 0924 38 410$:  MOVZWL #NMASC_PCLI_BFN,R1 ; Return bad parameter code 
50 14 QA 0929 2740 1s03: MOVZBL $*#SS$~BADPARAM.RO ; Set error return 
1004 30 092C 2741 123$:  BSBW RES_MUCTI 3; Restore original multicast list 
EB3 a F ne :; Finish the 1/0 request 
0982 pe i : Shared protocol type - look for same protocol type in other UCB. 
0139 30 0932 746 1258:  BSBw SHR_UCB : Find other UCB in user or make this 
Oe 747 ; UCB shareable 
F450 =€9 b9%8 pee BLBC RO,1238 ; Br on error 
0938 730 ; We must now check if UCB is already inited. 
0938 13e , ASSUME UCBS$V_XQ_INITED EQ 0 
11 68 AS €9 0938 275 BLBC UCBSW_ “DEVSTS(RS),135$ ; Br if this UCB is NOT inited 
093C 2754 : skip quota taking, already done 
oosc 331 baee P33 BRw 185$ ; Else, compute mu ticast List 
4 739 130$: SETIPL #IPLS$_ASTDEL ; Reset IPL to ASTDEL 
Ree 739 : Take quota needed 
0097 30 0942 2761 ° BSBW TAKE rayor ; Take quota from user 
oc 29 E9 094 766 BLBC RQ. IT : Br if error 
OOCC C5 BO 094 76 MOV R vcbeu XQ_QUOTA(RS) » Save quota in UCB 
94D 2764 135$: SETBIT #utB$v x0 | ty 3 oe 3; Indicate unit pr initialized 
94D 2765 UCBSW DEVSTS(R ) 3 
952 276 SETIPL it ag L(R5S) 3 gyne access ge ott and COB 
. itd Ss 6S 956 276 BLBS UCBSB_XQ_PRM(RS),140$8  ; f NO OMISCUOUS user 
;RNGOOO1 00C §2 1”) 95 MOVL } BSL- xo" _CDB(R5) ,R4 3; Get (one Fhe. 
=2 3310 C4 5 0D a6 ROVL -CDB_L “PRMUSER(R4) 3; Store orentscuaus user's acdress 
96 ; Pre-allocate all needed receive buffers, if the CDB is not initialized yet! 


50 


03 68 AS 
FE13 


1AC1 

E7 50 

21 AS 08 
02D 


a > a_i | 


~G 0000000000 0000000000 SII 
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ASSUME 
ASSUME 


BLBS 
CLRL 
CLRBIT 
ADDL 
ACDL 
MOVZWL 
BRW 


ASSUME 
BLBS 
BRW 
SETIPL 
BSBW 
BLBC 
MOVB 
BRW 


D 12 
ver g J 
MODE 1/0 OPERATION FDT -S$ 


G*EXE SALONONPAGED 
Rl “1RPSy 12 (R2) 


RD. 
R4,145$ 
(SP)+,R0 
ee 
fo 


ADD MULTI 
RO, T90$ 


NMASC_STATE_ON EQ 0 
NMASC“STATE_OFF EQ 1 


UCBS$B_xQ tetas 3 160$ 


R7 1188 BYTLM(R6) 
#NMASC_PCLI_MCA,R1 


UCB$B [ ppL ease 
ADD Tl 


| fac CRB. IRP$B_TYPE(R2 
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; Save R3, R4 
3; Get size of receive buffer 
; Get device buffer quota 
; Compute number of buffers to allocate 
; Plus one extra 
3; End of List marker 
; Allocate the memory 
: Br on error 
Save size of buffer 
+. Set structure type 
3 Save buffer address 
; Loop if more to allocate 


Get buffer address 
Br if end of List 
Deallocate the block 
Try for more 

Restore R3, R4 


Compile a new multicast address List 
Br if att Okay 


; Br if NOT a PROMISCUOUS user 
: ; Else, clear the PROMISCUOUS user addr 
Indicate unit is not initialized 


; Restore” quota 

--and byte Limit 

; Indicate bad a SO address 
; Return in error 


: Change mode request - might have to reset multicast address List 


UCBSV_XQ_INITED EQ 0 
Tt ea ~DEVSTS(R5) ,185$ 


; Br if unit inited 
; Else, success 


; Sync access to UCB and COB 
, gong ite A multicast address List 


RO,17 ; 
xg mas _V_CHMODE , IRP$B_X0 *FUNC(R3) “Set function request 


» Queue packet to driver 


<= 
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viva SETMODE_FDT = SET MODE 1/0 OPERATION FDT Bon 1382 00:30:56 DRIVER. BUGSRC JXODRIVER.MAR; 1 - (Sa) 
90¢ 3 ;¢ 
48 : ; Take quota subroutine 
4% § : Calculate buffer quota and check against user's quota 
90¢ 3 : Inputs: R7 = Scratch 
90C 3 6 = Scratch 
90¢ 0 § R5 = UCB address 
90C 1s RG = PCB address 
aoe 5688 | 
90¢ 4 : Outputs: R7 = Quota taken 
90C $; Re = JIB address 
90¢ § 5 R5 = UCB address 
90C : R4 = PCB address 
45 3 3 RO = Status 
oc 40 : R1,R2 are destroyed. 
oc 4¢ > Implicit outputs: 
90C 2844 : BR to ABORTIO if quota is exceeded. 
ae 
90¢ 23 TAKE_QUOTA: 
50 oc 48 RO ; Assume failure 
OODA CS) =6B6 (09D 49 INCW UCBSW_xQ_B8S2(R5) ; Round buffer size to even value 
OODA CS = 6010S AAs «OOGE 50 BICW #1 ,UCBSU_xa BSz (Rs) : “8 
51. 0009 CS 9A ODE 51 MOVZBL ucé$B_ x0 BFACRS) ,R1 ; Get number of receive buffers 
52 4205 3C O9EC 3 MOVZ2WL UCBSW~DEVBUFSIZ(RS).R2 : Get buffer size 
51 $2 4 O9F ; LL oR ; Get needed quota 
Ae C 4 4 MOVZWL R1,R7 3; Copy quota 
57 51 D1 oF 55 CMPL R1,R7 3; Overflow? 
30 12 OOF 3$ BNEQ 116$ ; Br if yes - error 
7E 2606 00 O9FB 5 MOVL atte STS(R4) ,-(SP) ; Save current PCB status , 
OFF 38 SETBIT #PCBS_SSRWAIT,- i Do not go into a resource wait 
FF 5 PCBSL_STS(R4) ; _ just_to check the auota 
53 DD OA 60 PUSHL R : Save R3 
eer 16 OA 61 JSB G*EXESBUF QUOPRC 3; Check quote 
3 BED AOC $¢ POPL 3; Restore R 
24 AG ? dD AQF 6 MOVL (SP)+ PCBSL_STS(R4) ; Restore previous PCB status 
02 6 F Al3 BLBS RO 50$ : Br if success 
1 1 Alb 65 BRB 80$ : Else, return error 
56 0080 C4 1) Al $6 50$: MOVL PCBSL_JIB(R4) .R6 . Get JIB address 
3 A6 7 2 aie SUBL R -JIBSL_BYTCNT(R6) ; Adjust quota ’ 
4 48 7 § A SUBL BY 2 BSL _BYTLACRG) 3 .-and byte Limit 
5 01 A OA H y MOVZBL #1,R ; Indicate success 
51 iT: A 7 gps: CLAL 1 3; No error return 
5 A A § $: RSB 
50 14 A OA 74 110$:  MOVZBL #SS$_BADPARAM,RO ; Setup error code 
51 0451 8F 3C OA 75 MOVZWL #NMASC_PCLI_BFN,R1 ; Assume BAD BFN 
F5 1 A Pe 90$ : Return error 
A i+ 
A ; CHECK_QUOTA = check SHARED unit's quota 
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QNA driver §-10N- 1387 17:49: 
T = SET MODE 1/0 OPERATION FDOT 5-SEP-1984 00:20: 
? i; Inputs: R9 = sereren 
: : R7? = Original UCB address 
é R5 = UCB address 
¢ 3 = PCB address 
5 ; Outputs: R9 = Quota taken 
3 3 R7? = Original UCB address 
3 RS = UCB address 
0; R4 = PCB address 
4! 3 RO = Status 
38 : R1,R2 are destroyed. 
95 ;- 
% CHECK_QUOTA: 
9 PuSHO R ; 
9 PUSHL 3 
MOVL R7,R5 : 
BSBB = TAKE_QUOTA : 
POPL RS 3 
306 BLBC RO,90$ 3 
90 MOVL i 3 
904 MOVZWL UCB$W_XQ_TOTQUO(RS),R1 ; 
905 ADDL R9,R1 3 
443 MOVZWL R1,RO é 
90 CMPL R1,R0 5 
908 BNEQ =: 1108 ; 
909 MOVZBL #1,R0 3 
910 90S: POPQ R6 3 
4p RSB ; 
313 110$: ADDL R9, JIBSL_BYTCNT(R6) 5 
914 ADOL R9, JIBSL_BYTLM(R6) : 
915 MOVZ2WL #SS$_EXQ0OTA,RO ; 
916 CLAL R1 : 
917 BRB 90$ $ 
918 
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Save R6, R7 

Save UCB address 

Copy original UCB address 
Charge quota to user 
Restore UCB address 

Br if error 

Copy quota taken 

Get total quota 

Compute new total 


; Cop ta 
; Suet tteut 
; Br if yes, error 


Else, return success 
Retore R6, R7 
Return to caller 


Restore quota _ 
..and = Limit 
Return bad quota 

No parameter return 
Exit with error 
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XQDRIVER = VAX/VMS QNA driver =JAN-1985 17:49: AX/VMS Macro v04-00 P 
Ose Ous SHR_UCB = CREATE SHARED UCB -SEP-1984 00:30:40 DRIVER.BUGSRC XODRIVER.MAR: 1°" ($8) 
AGE 4 9 -SBTTL SHR_UCB = CREATE SHARED UCB 
AoE 2 § ; SHR_UCB = CREATE SHARED UCB 
re 3 ¢ ; Functional description: 
AGE 29 § ; This subroutine creates a shared UCB if this is the first SHARED user of the 
AGE 2927 ; particular protocol type. Else, the already created SHARED UCB is found and 
AGE 29 8 ; @ shared data structure is added to the List of shared users of that protocol 
AGE 2929 ; type. 
AGE 2950 ; 
AGE 2931 ; Inputs: 
AGE 2932 ; 
OAGE 2935 ; R3 = IRP address 
AGE 2934 ; R4 = PCB address 
AGE 2935 ; RS = UCB address 
QA6E 29 § 3 R6 = CCB address 
QA6E 2937 ; R?7 = Function code 
wis 338 3 AP = Address of first function-dependent 910 parameter 
A6E 940 ; IPL = FIPL 
AGE 2941 ; 
OAGE o¢8 ; Outputs: 
OA6E 2943 ; 
OA6GE 2944 ; RO = Status return for request 
OA6GE 2945 ; R1 = Bad parameter code (if bad parameter error code) 
OA6GE 2946 ; R2,R7 are destroyed. 
QAGE 2947 ; ALC other registers are preserved. 
OA6GE 2948 ; 
OA6E 2949 ; IPL = ASTDEL 
AGE 2950 ; 
AGE 2951 ;-- 
OA6E 336 
OAGE 29535 SHR_UCB:: ; Setup shared protocol UCB 
0300 8F BB OA6 954 PUSHR #*M<RB,R9> 3; Save registers 
00000000'GF 16 OA7 955 JSB G*SCHSIOLOCKW ; Lock 1/0 data base for write access 
57 §655 ge 0A7 956 ; Save UCB address 
50 21¢4 BF 463C ~«(OA7B «(2957 MOVZWL #55$_DUPUNIT,RO : Assume 2 channels assigned to UCB 
5C AS 9 B1 OA80 338 #1 UCBSW_REFC(RS) ; Is there only one reference to UCB? 
¢ 12 QA84 295 BNEQ § ; Br if not, error (more than 1 channel) 
58 0008 C GA re 960 MOVZBL UCBS$B_XQ_ ACC(RS) RB 3; Save access mode 
03 £0 OA 961 BBS #UCBS0_x0_ SHARE ,- ; Br if we are already the SHARED UCB 
29 68 AS A8D 96¢ UCBSWDEVSTS(R5),10$ : 
54 D Ad 96 PUSHL R4 ; Save PCB address 
;RNGOOC1 54 ooc8 CS 00 0A9 1 MOVL UCBSL_XQ_CDB(RS) ,R4 , Get CDB address 
=) 51 cE C5 80 AI? 29 MOVW UCBSWTXQ~PROTYP(RS).R1 | Get protocol type 
1FFC AIC 296 BSBW MATCH_PROTYP ; Try to match protocol type 
54 at | ASF 208 POPL RG 3; Restore PCB address 
14 29 E AA 38 BLBS RQ. 198 ; Br if found 
55 DO OAA 970 MOVL R7,R 3; Else, get back old UCB address 
2c AS D4 OAAB 2971 CLRL UCBSL_PID(RS) : Make this UCB shareable 
50 CA DO QAAB 358 MOVL UCBSL_ORB(R5) ,RO ; Get the ORB address 
60 D4 OAAF 297 CLRL = ORBSLOWNER(RO) : clear owner UIC as well 
00C4 D4 QABI 2974 CLRL nb DEFUSR(RS) 3; Clear default user 
: AB OAB 975 BISW #UCBSA_XxG_SHARE ,- ; Indicate that UCB is in SHARED mode 
68 A nt 976 UCBSW"DEVSTS(R5) ; 
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XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49: AX/VMS Macro y04-00 Pa 
v04-001 SHR_UCB = CREATE SHARED UCB amet Fi 5:58:98 DRIVER.BUGSRC JXQDRIVER.MAR; 1 - (25) 
= 978 ; Allocate a share data structure and Link it in 
58 2 3 AB9 3 0 10s: CMPB #NMASC_ACC_LIM,R8S :; Is the new user a Limited user? 
1 ABC 2981 BEQL ; Br if yes - okay 
50 0840 8F 3 AB 2 § MOVZWL #SS$_DEVALLOC,RO ; Assume protocol already allocated 
004 3 9 ~ + F4 cert BSC_xG_DEFUSR(RS) ; is he Pee a defauit user? 
; Br - error 
a! 3 ACJ 2985 208: BSBW CHECK_PARAM ; Check out all parameters 
28 Be ACC 29 $ BLBC R ; Br on error 
EFS 0 OACF 29 BSBW CHECK QUOTA ; Check our quota 
25 50 iy AD 988 BLBC RO, : Br if error 
51 ef A QAD 989 MOVZBL Sart LENGTH AY ; Get size of structure to allocate 
3 DD OAD 990 PUSHL ; Save IRP address 
00000000'GF 16 OADA 2991 JSB G*EXESALLOCBUF 3; Allocate buffer, reset IPL to ASTDEL 
53 BECO OAE 1444 POPL R3 ; Restore IRP address 
1A 50 8 AE 99 BLBS RO, 30$ ; Br if success 
50 0124 8F C QAE6 2994 MOVZWL #SS$_INSFMEM,RO ; Else, return error reason 
51 0080 (4 00 AEB 995 MOVL  PCBSC_JIB(R4S,R1 : Get JIB address 
20 Al 59 CO OAF 996 ADDL R9, JIBSL_BYTCNT(R1) ; Restore quota 
24 Al 59 CO OAF4 2997 ADDL R9, JIBSL_BYTLM(R1) 3 --and byte Limit 
51 04 OAF 998 ttt CLRL 3; No bad parameter code 
55 57 DO OAFA 2999 25$: MOVL R7,R5 ; Get back the OLD UCB address 
0085 31 AFD 900 BRW 80$ : Exit with error 
0800 Boe 3: Initialize shared (SHR) data structure 
0800 3003 ; 
0B00 3004 $0$: ASSUME SHR_L_QFL EQ 0 
0800 3005 ASSUME SHR-L-QBL EQ SHR_L_OFL+4 
82 7C 0B0 006 CLRQ (R2)+ ; Zero LINK pointers 
0802 3007 ASSUME SHR_W SIZE EQ SHR_L_QBL+4 
82 51 BC OBO 008 MOVW 1,CR2)+ 3; Save size 
0B05 3009 ASSUME SHR_B_TYPE EQ SHR_W_SIZE+2 
52 D6 0805 3010 INCL R ; Filled by EXESALLOCBUF routine 
0807 3011 ASSUME SHR_B_STS EQ SHR B_TYPE+4 
82 01 90 0807 Ole MOVB #SHR_STS_M_INITEB,TR2)+ ; Initialize SHR status 
OBOA 13 ASSUME SHR_C_PIB EQ SHR_B_STS+i 
82 OC AS DO OBOA 3014 MOVL IRPSL_-PID(R3) , (R2)F ; Save users P{D and CHAN for 
OBOE 3015 ASSUME “CHA HR_L_PID 
82 28 A3 B60 080 O18 OVW IRPSW_CHAN(R3) , (R2)F 3. for future Lookups 
0B! 01 ASSUME SHR_G-DEST EQ SHR_W_CHAN+ 
82 0000 C7? 00 1 018 VL UCBSG_XQ_DES(R7),TR2)+ ; Save destination address 
82 0004 C7 BO 081 O19 MOVW  UCBSG-XQ~DES+#4(R?),(R2)+ ; 
0B1C 0 ASSUME SHR_Q-QUEUES EQ SHR_G_DEST+6 
51 03 9A pert 8 1 MOVZBL #SKR_C_QUEUES,R1 ; Get number of queues in structure 
82 6 DE 1F ¢ 40$: MOVAL (R2)7(R2)+ » Set forward Link pointer 
82 FC A2 0O 2 30 MOVL -4(R2), (R2)+ : Set backward Link pointer 
F6 51S F 3 8 4 SOBGTR R1,40$ ; Loop if more Listheads 
5 ASSUME SHR W QUOTA EQ SHR_Q_QUEUES+<B*SHR_C_QUEUES> 
82 59 B60 0 § MOV R9, TRZ)+ 3; Initialize quota 
C 3 ASSUME UCBS$V_XQ_INITED EQ 0 
0c 68 AS’ EY BLBC UCBSW-DEVSTS(RS) ,50$ ; Br if UCB not initialized 
oocce (5 =—(559 A 0 ADDW R9,UCB$W_XQ_QUOTA(RS) ; Add to the current quota 
0190 ¢5 59 A 1 ADDW R9,UCBSW_XQ_TOTQUO(R25) ; and the total quota 
A 11 A é BRB § : Continue 
bore C5 9 8B C 508: MOVW R9,UCBSW_XQ_QUOTA(RS) ; Set current quota 
190 C5 9 8 41 4 MOVW R9,UCBSW_XQ_TOTQUO(R5) ; and total quota 
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was this the or —_ ht 
; Br if YE 


o do 
; Else, increment REFC” ctor *SDASSGN) 
; Return ~~ — address 


; Save IRP. reat UCB address 


: Return to caller 
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acku up to beginning of structure 
$ i he for limited use? 
c f YES 


$e. save default user address 
p Ski P Linking onto List 
; Link user into shared user List 
Bae yy the ref count on the 
to be use 


S = no more 


n CC 


Copy old UCB address 

Decrement the reference count 
Restore UCB quota to Jl 

Delete the old UCB 

Restore IRP. UCB address 

Return success 

Restore registers, R4 is PCB address 
Save IRP address, ana return 
Unlock I/0 data bas 

Restore IRP adarees. status return 
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rie ~SBTTL CHECK_PARAM = CHECK SHARED USERS PARAMETERS 
; CHECK PARAM = CHECK SHARED USERS PARAMETERS 
Functional description: 


Validate all perenstors between the requesting SHARED user and the old 
existing SHARED user to make sure that are the same. 


Inputs: 
os = UCB address of existing shared user 
R? = UCB address of new shared user 
R8 = Protocol access mode 


Outputs: 
RO = Status of request 2 
Ri = Bad parameter code if validation failed 


CHECK_PARAM: ; Check user parameters 

PUSHL R6 ; Save registers 
UCBSB_XQ_SHRPRM(RS),.RO ; Get address of current parameters 
MOVAB UCBS$B_XQ_SHRPRM(R7),R6 ; Get address of new parameters 
MOVZBL #UCBSC_x0_SHRPRM,R2 ; Set size of parameter List 


: Validate all user settable parameters except for Physical address 
10S:  CMPB (RO), (RO) 7 Match? 
BNEQ ; Br if no 
MOVB (RO) +, (R6)+ ; Store current value in UCB 
SOBGTR R2,10$ ; Loop if more to check 


; NOW, check if user has given a hardware physical address. 


; R6 = Address of parameters in CDB 


: RO = Address of parameters in UCB 


ASSUME CDB_G_PHA EQ CDB_B CON+1 
ASSUME UCBSG"XQ_PHA EQ OCB$B_x0_CON+1 
CMPL #-1, (R6) ; Is user physical address defined? 
BNEQ 208 : Br if yes : 
CMP #-1,4(R6) ; Is user physical address defined? 
BEQL 30$ ; Br if not 
208: MOVZWL 9 #NMASC_PCLI_PHA,R1 ; Assume bad physical address 
CMPL (RO)+, TR6)+ ; Physical address match?? 
BNEQ ; Br no 
CMPW (RO)+, (R6)+ : Still match?? 
BNEQ 80$ ; Br if no 


: If this is the shared default user, then set the multicast address List. 


$0$: BSBW  SET_MULTIN 
thos 


; Set new multicast address list 
BRB ; Exit 
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04-00 Page $7 
DRIVER. BUGSRC JXQDRIVER.MAR; 1 (26) 
g: ; Error on parameter validation 
ie: MOVZWL BAD_PARAM_TBL=2(R2],R1 ; Return parameter code 


8 
98 Rov ze 5 asss _BABPARAM,R ; Return bad parameter error 
9 10 ; Restore registers 
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EW MULTICAST ADDRESS L ets 4 00:20: DRIVER.BUGSRC JXQDRIVER.MAR; 
-SBTTL SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 

; SET_MULTIN = SET NEW MULTICAST ADDRESS LIST IN UCB 


“ns 


; Functional description: 


: Copy the multicast address list from the old UCB to the new UCB. 
This operation is only done for the SHARED DEFAULT user of the PROTOCOL. 


UCB address of existing shared user 
= UCB address of new shared user 
RB = Protocol access mode 


DD: 
nu 
" 


; Outputs: 
RO = Always success 
ALL other are preserved. 
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SET_MULTIN: ; Set new multicast list 
58 O01 91 CMPB #@NMASC_ACC_SHR,RB ; Is this the shared default user? 
15 12 BNEQ 508 : 
3€ by PUSHR #*M<R1,R2,R3,R4,R5> ;_ Save registers 
0048 BF 2 MOVC3 #6*MAX_C_MLT,UCBSG_XOQ_MULTI(R7), = ; Copy multicast List 
OOEC C7 OBE 
OOEC C5 OBE 
OBF 148 UCBSG_XQ_MULTI(RS) 3 
36 BA OBF 149 POPR = #*M<RT,RZ,R3,R4,R5> ; Restore registers ‘ 
00E9 C7 90 OBF3 3150 MOVB  UCBSB_XQ_MULTI(R7),-  : Copy the number of valid addresses 
OOE9 C5 OBF 151 UCB$B_XQ MULTI(RS) 3 
50 01 9A OBF 312g 508: MOVZBL #SS$_RORAAL RO ; Return success 
05 OBFD 315 RSB ; Return to caller 
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734 CORIVER.BUGSRCJXQDRIVER.MAR; 1 (28) 


7 -SBTTL SENSEMODE_FOT = SENSEMODE 1/0 FDT PROCESSING 
SENSEMODE FDOT = SENSEMODE 1/0 FDT PROCESSING 

Functional description: 

Process read status and read counters requests. 

The Q10 parameters for SENSEMODE are: 


Pl = Optional address of quadword buffer 
P2 = Optional address of buffer descriptor for extended characteristics 


The SUBFUNCTION modifiers are as follows: 


1) READ PARAMETERS -- NO MODIFIER. 
This function reads the QNA parameters and returns them to the user. 


2) READ COUNTERS == !OSM_RD_COUNT SET. 
This function reads the GNA counters and returns them to the user. 


CLEAR COUNTERS == JOSM_CLR_COUNT SET. ; 
This modifier must be used with the read counters modifier to clear 
the counters as they are read. 


SHSSSSHOSSOSOSHGSSSSSGSSSGSS S— 


Inputs: 
R3 = IRP address 
R4 = PCB address 
RS = UCB address 
R6 = CCB address 
R7 = Function code 
AP = Address of first function-dependent Q10 parameter 
IPL = ASTDEL 
Outputs: 


RO = Status return of SENSEMODE request 
R1,R2,R6,R7 are destroyed. 
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0 SENSEMODE FDT:: ; SENSE MODE 1/0 FDOT processing 
50 0084 BF 3C 1 MOVZWL -#SS$_DEVOFFLINE,RO ; Assume unit if offline 
. €t ¢ BBC #UCBSV_ONLINE,- : Br if unit not onlire 
23 64 AS UCBSW_STS(RS).15$ : 
57 2043 80 4 MOV IRPSU_FUNC(R3) a? : Get entire function code 
1457 09 €0 5 BBS #1OSV~CTRL.R7, 108 : Br if line request 
$ ; Check if read circuit counters 
03 57 08 4 3 BBC #10$V_RD_COUNT,.R7,5$ : Br if not read circuit counters 
00D2 1 9 BRid READ C_CTR ; Else, get the circuit counters 
50 01 QA 5$: MOVZBi. S*#SS$_NORMAL ,RO ; Return success 
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KQDRIVER - VAX/VMS QNA driver -JAN-1985 17:49:06 VAX/VMS Macro v04-00 P 7 
yoeeOUT SENSEMODE_FDT * SENSEMODE 1/0 FDOT PROCES SatP=1984 O0:20;s¢ YORIVER.COSSRCINGDSGVER.MARS1?%” (5p) 
Ss} a5 0D CIA 1 MOVL UCBSL_DEVDEPEND(RS),R1 ; Get device dependent information 
00000000 ' GF 1 33 18 JMP G*EXESFINISHIC 5 Complete the 1/0 request es 
0657 O08 €1 ¢ 4 1? 108: BBC #10$V_RD_COUNT,R7,20$ ; Br if not read counters 
c 1" 3 Read counters = modifier RD_COUNT 
O09F 3) : : 19 : BRW READ_LINE_CTR ; Get the Line counters 
“ria. -3? be ? 1 15$: BRw ABORTIO ; Abort the 1/0 request 
o¢ : 5 ; Read parameters - no modifier 
44 A3 B4 OCE 5 208:  CLRW  IRP$W_XQ_P2S12(R3) ; No return data 
;RNGOOO1 54 00c8 cS «pO 0C31 ~~ Cw MOVL  UCBSLXQ~CDB(R5S) ,R4 : Get CDB address 
RNGOOO1 51 08 3C 0C36 § MOVZWL : Size of Pl buffer if present 
3 017E 30 039 ; BSBW CHECK_BUFS : Check P1 and P2 buffers 
50 01 9A peat 0 MOVZBL S*#SSS_NORMAL,RO 3 Assume success 
3A AS «6500 «BO COOC3F «3231 MOVW RO, IRPSW_XQ_STATUS(R3) ; toy 
38 AS) «651 =—B0 (0C43 $3§ MOVW R1, IRP$W_XQ_USERSIZ(R3) ; Save user P2 buffer Length 
4713 Oca? 333 BEQL © 408 : Br if no P2 buffer present 
40 AS 52 00 OC4&9 $32 MOVL R2,1RP$L_XQ_P2BUF(R3) ; Save user P2 buffer address 
1821 30 OC4D 36 BSBW ; Return the P2 parameters 
44 043 50 B80 O0C50 3237 MOVW RO, IRPSW_xQ_P2SIZ(R3) ; Set size of return data 
54 D5 O0C54 3238 TSTL R4 : Is COB present? 
2c 613 0C56 3239 BEQL 30$ :; Br if no - okay to return now 
;RNGOOO1 51 50 OA C1 0C58 1 ADDL3 #10,R0,R1 3; Check if default physical 
-1 OC5SC 3241 3; address can fit 
38 AS 551—s«éwBWSC«#C SCC 3508 CMPW R1, IRP$W_XQ_USERSIZ(R3) ; Is buffer big enough for 
0C60 324 ; default physical address? 
1C 1A 0C60 ° 3244 BGTRU 25$ ; Br if no 
44 A3° OA AO 0QC62 45 ADDW #10, IRP$W_XQ_ P2SIZ(R3) ; Add DPA to return buffer size 
40 A3 20 C1 0c66 46 ADDL3 RO, IRPSL_RQ_P2BUF (R3) ,R2 : Get buffer address 
0C6B $502 3; past end of return data 
00061488 or dO oces 248 MOVL #<6816>+NMASC_PCLI_HWA!-; Store parameter code + size 
ocr2 249 PRM_TYP_M_STRING,(R2)+ ; and indicate this is a string 
82 0250 ¢4 00 Cre 50 MOVL CDB~G_H@ATR4) , (RO) + ; Store Default Physical Address 
82 0254 C4 BO 0C7 51 MOVW DB"G-HWA+4(R4),(R2)+ 
06 11 OC7C ; 26 BRE ; ALL is_okay 
069! of BO cre 2535 25$ MOVW #SS$_BUFFEROVF ,IRPSW_XQ_STATUS(R3) ; Return partial success 
50 44 Ag 3 Be 54 30$ MOVZWL IRPSW_XQ _P2SIZ(R3),RO ., Get size of user return data 
50 50 10 8 0C88 55 ASHL #16,R0.R : Shift size of buffer return 
50° 3A A380 cB 36 MOV IRPS$W_XQ_STATUS(R3),RO : Get status 
54 0 C9 28 40$ TSTL RG 3; Is there a CDB? 
a. C9 5 BEQL 50$ ; Br if no CDB yet! 
52 3C AS 4 c9 60 MOVL AROSLXO_USERBUF (RS) .R2 ; Retrieve Pi buffer address 
OF 1 C98 61 BEQL 0$ : Br if none 
62 40 A5 7D OC9A 6¢ MOVa UCBSB_DEVCLASS(R5),(R2) ; Else, return characteristics 
019¢ c4 (8 CoE 6 BISL  CDB_L“DEVDEPEND(R4S ,4(R25 ; hic 
51 o1de C4 0° CA4 356% MOVL CDB_L_DEVDEPEND(R4),R1 ; Get device dependent info 
4405 C CA9 65 5),R1 ; ..from UCB also 


50$: BISL UCBSL-DEVDEPEND(R 


RIVER = VAX/VMS ON 7:49: AX/VMS Macro 04-00 Pa 71 
yon oon OO SENSEMODE.F FD NSEMODE 1/0 FDOT PROCES g: 08-1382 6; $396 DRIVEX .BUGSRCIJXQDRIVER.MAR; 1 — (28) 
00000000'GF 17 JmP G*EXESF INISHIO ; Complete the 1/0 request 

68 ; 
9 ; Queue 1/0 request to driver 
ths 71 QUEPKT: ; Queue packet to driver 
0cB 7 SETIPL UCBSB_FIPL(RS) ; Raise IPL to fork IPL 
00000000 ' GF 1g 0cB 7 JS8 G*IOCSINITIATE i; Intiate the 1/0 request 
0000000 ' GF 17 OCBD 74 JMP G*EXESQIORETURN ; Lower IPL, and RET 
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XIDRIVER = VAX/VMS QNA driver o-78 N-1 387 47:48:06 ee Macro v04-00 e 
v04-001 READ_LINE_CTR = READ THE LINE COUNTERS “SEP~1984 00:20:54 (CDRIVER.BUGSRCJXODRIVER.MAR; 429 (29) 
cc 6 -SBTTL READ_LINE_CTR = READ THE LINE COUNTERS 
ee 4 *SBTTL READ- “CIRC_CTR = READ THE eintuet COUNTERS 
CC 8 ; READ_LINE_CTR = READ THE LI NE COUN TERS 
ee , 3 READ_ CIRC” CTR = READ THE CIRCUIT COUNTERS 
eC : : Functional description: 
eC s : Process read circuit counters request. 
+ § : The Q10 parameters for SENSEMODE are: 
eC 8 : P2 = Address of buffer descriptor for counters 
CC 0; 
bce 4! ; Inputs: 
cc 38 : R3 = IRP address 
cc 94; R4 = PCB address 
cc 95; RS = UCB address 
Occ 36 3 R6 = CCB address 
occ 97 ; R7 = Function code and modifier bits 
of: 38 ; AP = Address of first function-dependent Q10 parameter 
yo}! 89 : Outputs: 
occ 08 : RO = Status return of SENSEMODE request 
oy: be : R1,R2,R6,R7 are destroyed. 
Occ 06 :-- 
occ 89 -ENABL LSB 
Occ 08 ABORT_IRP: 
0700 8F v oy: 09 POPR #*M<RB,RI,R10> ; Restore registers 
F676 31 Occ? 10 BRw ABORTIO ; Abort the I70 request 
OCCA \¢ READ_LINE CTR: ; Read the Line counters 
0790 8F BB OCCA 1 POSHR oncns RY. R10> : Save registers 
58 F437 CF 9 acce 14 MOVAB LINE RB ; Get address of counter format table 
59 14 3¢ OCD 315 MOVZWL #LINE crm SIZE ,R9 : Get number of entries in table 
56 006A 8F 3 0CD6 16 MOVZWL SLINE “CTR RaBUFSIZ.R6 ; Get size of system P2 buffer 
;RNGOOO1 50 0124 BF C OCDB .1 MOVZWL esse INSFAEM,RO ; Assume no CD 
+ RNGOOO1 5A 00C8 C5 09 OCE 2 MOVL cest Na CDB(RS5) ,R10 ; Get CDB address 
=3 of 1 aces 0 BEQL ABORT ~IRP ; Br if none, abort the 1/0 
1 11 344 1 BRB 10$ » Else, Continue in common code 
cE9 ‘ READ_CIRC CTR: ; Read the circuit counters 
0700 8F 88 CE9 4 POSHR #*M<R8,R9,R10> > Save registers 
58 F468 CF —E OCED 5 MOVAB C ; Get address of counter format table 
59 66 HS 6 § MOVZWL #CIRE_CY TR S12 ; Get number of entries in table 
56 «200 3C.sC«OOF MOVZWL acIRCe CTR “BurSia. R6 : Get size of system P2 buffer 
5A 5 00 Bere 8 MOVL 3; Use UCB fer counters 
OOBE 3 CFB 0 10$: BSBW CHE 3; Check the P2 buffer 
50 14 A OCFE 1 MOVZBL SAF558'6 RAM,RO ; Assume zero length butter 
38 AS 1 89 p01 § MOV ta ra AUSERSIZ(R3) 3; Save size of user P2 buffer 
1 pos BEQL AB aeet ; Br if no buffer 
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MOVZWL 
MOVW 
MOVZWL 
ADDL 
EXTZV 
CASE 


BUG_CHECK NOBUFPCKT, FATAL 


MOVW 
BBC 
CLRW 


: 16 BIT counter 


R1,R0 
UCBSL 
<McR 
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r g-4ane1 
D THE CIRCUIT COUNTER 5=SEP~1 


R2,P2B _L_ BUFF 
PSB LS 


POTNTER( 
: Get the counters kept by the driver 


(RB) +,RO 
RO, (RO)+ 


R10,R 
#NMASV_CNT_MAP,#3,R0,RO 
TYPE=B,LIMIT=#2,<- 


RO 
§ 
0$,- 


32 BIT counter/ 16 BIT counter + bitmap 


(R1)+ 
~2( 


(R2)+ 


IRP$W_xQ_US 
IRP 
#sss BUFFERG 
IRP 


#*A<RB_RO 
G*EXE 


LSB 


(R2)+ 
#108 y CLR. COUNT RY .408 


1), 
OSV_CLR_COUNT .R7.,508 


DEVDEPEND(RS) ,R1 
R10> 
$f INISHIO 
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Get size of ere P2 buffer 
Allocate the buffer 

Br if error 

Get system P2 buffer address 
Save user P2 buffer address 


Get address of data portion of buffer 


Get counter code 

Return counter type code 

Get offset word 

Point to counter in UCB 

Get width + bit map indicator 


Dispatch on width and bit map 
8 bit counter 


8 bit counter + bit map 
16 bit counter 
16 bit counter + bit map 
32 bit counter 


Store counter in buffer 
Br if not clear counter operation 
Else, clear the counter as weil 


; Store counter in buffer : 

; Br if not clear counter operation 
; Else, clear the counter as well 

; Loop if more 

; Assume success 

; Is user's buffer big enough? 


; Br if yes 
; Else, set size to minimum 
; Of both 


; Set partial success 


Get size of oy! ise returned in 


; «high word of 

; Get status return 

; Get device dependent info 
; Restore repierers 

; Complete t 


e 1/0 request 


— 1 


XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49: AX/VMS Macro y04-00 Pa 74 
Nira ti GET_CHAR_BUF = GET P2 CHARACTERISTICS BU =328=138? 00:30:50 YORIVER.BUGSRC MQDRIVER.MAR; 1 = (30) 
qe 7 — -SBTTL GET_CHAR_BUF = GET P2 CHARACTERISTICS BUFFER 
444 § : GET_CHAR_BUF = GET P2 CHARACTERISTICS BUFFER 
444 Functional description: 
D7D 3393 : This routine saves the P2 buffer for Later use by the driver. 
D7D 94 ; The P2 buffer is saved by ps tecasing the appropriate amount of mesory from 
D7D 95 ; non=-paged pool. The user's quota is checked before the allocation is made. 
D7D 38 ; And the non-paged pool buffer is charged ogetost the user's quota. The P2 
D7D 97 ; system buffer address is passed in IRPSL_SVAPTE of the IRP. 
BoD 8809 : 
BR aR | eee 
D7D 40¢ : R3 = IRP address 
D7D 3403 ; R4 = PCB address 
O07 tee ; RS = UCB address 
D7 406 : Outputs: 
Boze rt ; RO = status of buffers 
0p7D 3410: R3-R5 are preserved. 
007D 411; 
ie 
pore oi3 GET_CHAR_BUF : ; Get characteristics buffer 
po 78 rt 3 Check access to P2 buffer and check process's buffer quota 
51 04 AC 09 0D7D 3418 108: mov.  P2(AP),RI : Get address P2 char buf desc 
33 oD Opes 330 Posh. RSS 5 a Ze dees 
: Save 
00000000°GF 16 O0D85 1 JS8 5 _EXESPROBER DSC ; Check access to buffer 
OE 50 ? 0D ¢ BLBC RO,15$ ; Br if error 
51 2) C ODBE MOVZWL R1,R1 ; Get the Length as a word 
2 OD OD91 *424 PUSHL : Save R2 
eetepateedl oat $033 ‘3 5 tA 6 EXESBUF QUOPRC 3 ee vor buffered quota 
; Restore 
3§ BED0 OD9C 5 15$ POPL Pp 3; Restore R 
0150 €8 OD9F | BLBS RO, 308 : Branch if quota ok 
05 ODA 2n$: RSB 3; Return 
Das 8c8) 
on § : Quota KAY, allocate buffer and copy info. 
0050 30 ODA $0$:  B8Sb4  ALLOC_P2BUF : Allocate buffer 
10 § fe A 5 BLBC & : Br if error 
50 2c AS DO ODA 9 movi IRPSL_SVAPTE(R3),RO : Get P2 buffer address 
; by AD PUSKR = @* ACRE RG RSD ; Save pacree registers 
62 HI Dar 8 MOVC; kt.(R25,P2B_T_DATA(RO) : Save P2 char buffer 
8 A QDB4 3439 POPR #*A<K3,RG,RS> ; Restore registers 
50 01 9A 440 $s MOVZBL S*#SSS$ NORMAL ,RO > Set success 
05 0bdB 441 50$ R5B ; Return 
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KQDRIVER = VAX/VMS QNA dri “JAN-1985 17: AX/VMS Macro y04-00 
vounOuT CHECK_BUFS = CHECK *P1 AND P2 BUFFERS FOR 5-SEP-1984 00:20: 5:38 DRIVER .BUGSRC JXOORI VER. MAR; ‘ aoe) 
«-SBTTL CHECK_BUFS = CHECK P1 AND P2 BUFFERS FOR WRITE ACCESS 
CHECK -BUFS = CHECK Pl AND P2 BUFFERS FOR WRITE ACCESS 


Functional description: 


$ 


ew 


This routines checks the Pl and P2 buffers for write access if supplied. 
Inputs: 

ize of Pl buffer needed for write access 
e yeaarecs 

¢ 


S 
I 
P 
U 
Function code 


PDP PPP Be BP PE 
—O ONO UNS Vo" 0 OO = 


RO is destroyed. 
Ri = Length of P2 buffer (zero if ,no P2 buffer) 
R2 = Address of P2 buffer in user's process space 
No RETURN on NO ACCESS 
Implicit Outputs: 
IRP$SV_FUNC bit set in IRPS$W_STS by EXES"EADCHK subroutine. 


4 CHECK_BUFS: 
475 BSBB s CHECK_P1 
476 CHECK_P2: 

LRL 


R1 
A MOVL P2(AP) ,R2 


Check Pl buffer 


Assume no P2 buffer desc 
Get (fino Pe of P2 desc 


: Br i 
480 IFNORD #8 (Re). ACCESS ; Br if no 
1 MOVZWL (R2),R ; Get Length. of “butter 
§ BEQL 108 ; Br if z 
MOVL DSCSA PoIaTER tha? RO ; Get UB address 
484 JSB G*EXESREADCH ; Check write access to buffer 
5 ; (no return no access) 
§ ; Also sets IRPSV “FUNC in IRP 
MOVL RO,R2 3; Copy buffer address 


10$: RSB Return to caller 


ACCESS: MOVZBL S$*#SS$_ACCVIO,RO ; Return access violation 
BRw ABORTIO ; Abort the 1/0 request 


we] 
—O0e 
>. 
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vourcul CHECK_P1 = CHECK PT BUFFER ADDRESS FOR wW B7gepe19 4 00:20: 88 {ORIVER. BUGSRC JXQDRIVER.MAR; ‘ ie ) 


+3 $37 a -SBTTL CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
43 182 ; CHECK_P1 = CHECK P1 BUFFER ADDRESS FOR WRITE ACCESS 
+3 rd 3; Functional description: 
DE 499 ; This routine checks the P1 buffer and if okay, the buffer address 
43 301 : is saved in IRPSL_MEDIA of the IRP. 
DE : Inputs: 
DE 5 g 3 
DE : 4; Ri = Size of buffer for write access 
DE 5; R3 = IRP address 
ODE 506 ; R4 = PCB address 
ODE 507 ; RS = UCB address 
ODE 508 ; R7 = Function code 
ODE 509 ; 
ODE 510 ; Outputs: 
ODE Sil; 
ODE ais 3 RO is destroyed. 
ODE 13; 
ODE 514; No RETURN on NO ACCESS. 
ODES 3816 ; Implicit Output 
3 Implic utputs: 
at 313 ; 
ODE 518 ; IRPSL_MEDIA(R3) = User P1 buffer addres 
pOEs ay : IRP$V_ FUNC bit set in IRP$W_STS by EXE SREADCHK subroutine. 
et 521 ;-- 
DE3 35 ¢ 
ODES 3523 CHECK_P1: 
38 AS) «0S CODES 524 CLRL IRP$L_MEDIA(R3) 3; Assume no P1 buffer 
50 §=66C 00 ODE6 22 P1(APY,RO 3 Get address of user buffer 
06 13 ODES 35 § 10 ; Br if none 
00000000'GF 16 ODEB 352 G*EXESREADCHK ; Check access to buffer 
ODF1 3528 ; (No return = no access) 
3c AS = 550 0 ODF 1 44 RO, IRP$L_XQ_USERBUF (R3) ; Save Pl buffer address in IRP 
05 ODFS 35350 3; Return to caller 
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XQDRIVER - VAX/VMS QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa 
YOenOr ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND C =3t0= 1382 00: 8:98 DRIVER.BUGSRC JXQDRIVER.MAR; 1 
. ~SBTTL ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S QUOTA 
ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND CHARGE USER'S GUOTA 


Functional description: 


77 
9° (33) 


WANA NAWI 


PEAS OD NAME NE AID NAME WIN OOD NAME WIN 0 OD NOU EWI OOWONOUE WP 


This routine allocates a system buffer and returns the address in the IRP at 
; IRP$SL_SVAPTE, The size of the allocation, including buffer header must 
be at least 24 bytes in length. 


Inputs: 


f allocation desired 


= eo 
address 


R1 Siz 
R3 = IRP 


FN FS re re ee 


4-4 -4-4-4-4-4 4-4-4444 
DWN VOAAAAAAAAAAA AAPA AAAAASP POA AAAAOOAAAR 


Outputs: 
RO = status of request 
R1-R5 are preserved. 
Implicit Outputs: 


Le had behets cb eb ch hh cb dab hth dh hh dh dh db dh dh sb db ah sh ab sb ase al 


Sete Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ce Se Se Se Se Se Ge Se Se Se 


4 
4 
4 
8 4 
4 
0 4 
8 4 
DF 4 
ODF 4 
ODF 4 
ODF 5 
ODF 5 
ODF 5 
ODF 5 
ODF 5 
ODF 5 IRPSL_SVAPTE(R3) = address of system buffer 
ODF 5 IRP$SW_BOFF(R3) = byte count charged to user's process 
oe 2 IRP$SW_BCNT(R3) = original byte count requested 
ODF 5 ALL parts of the P2 buffer header are initialized, except for the 
ODF 56 user's P2 buffer address. 
ODF 56 
ODF 562 ;-- 
ODF 56 
ODF 564 ALLOC_?2BUF : ; Allocate a non-paged buffer 
51 D5 ODF 56 TSTL R1 ; Zero Length buffer? 
4D 13 ODF 56 BEQL 30$ ; Br if yes 
OE 68 ar 56 PUSHR #*M<R1,R2,R3> ; Seve registers 
32.03. 51 BO ODFC 356 MOVW «R11, IRP$W_BCNT(R3) : Save original byte count 
;RNGOOO1 0c 51 01 OEO “ CMPL R1,#24-P2B_C_LENGTH : Is buffer big enough? 
;RNGOOO1 03 1A 0OEO ‘ BGTRU ; Br if yes 
3RNGOOO1 51 OC DO OEO . MOVL #24-P2B_C_LENGTH,R1 ; Else, set size to minimum 
3RNGOOO1 51 OC CO OE0 5$: ADDL2 #P28_C CENGTH,R1 : Add in size of header 
00000000'GF 16 O£0B 357 JSB Gre XESBUF QUOPRC : Check for buffered quota 
0— 50 =€9 ay 2 BLBC RO,10$ ; Branch if quota bad 
if 3 ; Quota OKAY, allocate buffer and copy info. 
51 DD 0OE14 2 PUSHL Ril ; Save size to charge user 
00000000'GF 1 E16 7 JSB 5 EXE SALLOCBUF 3; Go allocate a buffer 
06 50 € €1ic 35 BLBS RO,20$ ; Br if success 
5E : C Elf 35 ADOL #4,SP ; Pop saved size 
E BA QE22 : 108 POPR #*M<R1,R2,R3> ; Restore registers 
05 : 4 : RSB ; Return with error code in RO 
4 3; System buffer allocated decrement user's quota 
53 8EDO OE 20S: POPL RE ; Restore user quota charge 
62 OC A2 9E OE 8 MOVAB P2B_T_DATA(R2),P2B_L_POINTER(R2) ; Set address to start of data 
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XQDRIVER = VAX/VMS QNA driver JAN-1985 17:4 AX/VMS Macro y04-00 
Yoon aus ALLOC_P2BUF = ALLOCATE A P2 BUFFER AND C g- -SEP-1 1382 b0:30 ‘06 YORIVER. BUGSRC JXQDRIVER.MAR; ‘ oe 8, 
OB A 2 8 E MOVW RB. Pee W_SIZE(R2) : Save PS char’ size be putter 
3 D E MOVL 3; Save P2 char buf 
52 80 DO OF MOVL ch I B(R4) ,R2 ; Get JIB address 
20 A 7 < E SUBL t Zine ; Decrement user's quota 
3 BA OESC 3 POPR ; Restore registers 
2¢ A3 DO OF 4 MOVL roving oy : Save P2 buffer address in IRP 
30 A 08 AO 8 E4 95 MOVW rR). [RP Bu. BOFF (RS) ; Return buffer size in IRP 
50 01 9A OE4 %6 30$:  MOVZBL eco we “NORMAL ,R : Set success 
05 OE4A 359 RSB ; Return to caller 


XQDRIVER - VAX/VMS QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro V04-00 Page 79 
yOenOr STARTIO = START 1/0 OPERATION ets 1 b0:30;54 DRIVER.BUGSRCJXQDRIVER.MAR; 1 ° (34) 
Fe} 44 3 -SBTTL STARTIO = START I/O OPERATION 
ste ? ? 3 STARTIO = START 1/0 OPERATION 
cee ? ; Functional description: 
€4B 3605 ; This routine is galled when an IRP is ready to be processed by the driver. 
E48 36 § ; The request is d spatened to the appropriate routine base on the internal 
E4B 3607 ; function code in the IRP. 
E48 288 3 
E4B 3609 ; Inputs: 
E48 at : 
E48 73 R3 = IRP address 
0E4B ol¢ 3 RS = UCB address 
pees 613 ; 
E4B 3614 ; IPL = FIPL 
E48 3615 ; 
E4B o1g ; Outputs: 
E48 3617 ; 
E48 5618 ; RO-R2,R4 are destroyed. 
OE4B 3619 ;-- 
pees $30 
E48 3621 STARTIO:: ; Process an I/0 packet 
;RNGOOO1 54 00c8 c5 DO OE4B 1 MOVL UCBSL_XQ_CDB(R5) ,R4 ; Get CDB address 
+e 51 21 A3 9A OE50 3624 MOVZBL__IRPS$B-XQ-FUNC(R3),R1 =; Get the internal function code 
0E54 3625 10$: SDISPATCH _ RI, TYPE=B,- 
pee ° § <- 3: function action 
0E54 3628 <XQ_FC_V_LINIT STARTUP>,=- ; Startup request 
0E54 3629 <XQ_FC_V_STOP  SHUT>,= ; Shutdown request | 
0E54 3630 <XQ"FC"V“CHMODE CHMODE>,- : Set new multicast List 
0E54 3631 > 
0E66 36 § ; 
0E66 3633 ; Other request type 
0E66 3634 ; 
0E66 3635 BUG_CHECK NOBUFPCKT,FATAL ; Fatal error 
OE6A 3636 
OE6A 3637 ; 
OE6A O38 ; Startup unit's protocol 
OE6A 3639 ; 
£6A 3640 STARTUP: ; Startup unit's protocol 
49 10 QE6A 3641 BSBB START ; Start protocol 
01 50 34 E6C tg BLBC RO,10$ ; Br if error on startup 
5 gh ot? RSB ; Else, return to caller 
50 oD th 645 108: PUSHL RO 3; Save error return 
gf 10 0OE7 268 BSB STOP 3; Shutdown unit 
0 bepY E74 364 POPL R 3; Restore error return 
OCD6 1 0€77 o68 BRw 10_DOWE ; Complete the 1/0 request 
E7A 364 
E7A 3650 ; 
eva 651 ; Shutdown UNIT’s protocol 
E7A $36 SHuT: : Shutdown protocol 
0210 C6 55 D1 OE7A 3654 CMPL R5,CDOB_L_PRMUSER(R4) : Are we the PROMISCUOUS user? 
14 12 OE7F 3655 BNEQ 1 : Br if not 
0210 ¢6 D4 OEF81 3656 CLRL CDB_L_PRMUSER(R4) ; Else, clear the PROMISCUOUS user 
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yeah STARTIO = START 1/0 OPERATION -SEP-1984 00:30.58 DRIVER .BUGSRCJXQDRIVER.MAR; 1 - (R) 
01 90 OE 657 MOVB @NMASC_STATE_OFF,=- ; Don't forget about the CDB 
0247 C4 E ; 6 8 COB_B_PRM(R4J 3 parameter 
ospr 3 EBA g BSBW SETOP MODE ; Get setup buffer 
0D 3 E 60 BLBC R ; Br if error 
0 0 OF 661 MOVB #xd_FC_V_STOP,- ; Set function request 
20 A E9 $6¢ CxXBSB_RQ"-FUNC(R2) : 
05 eRe 287 RSB ; Return to complete function 
97 10 OE95 3665 10$: BSBB STOP ; Shutdown unit 
50 1 9A O0E97 206 MOVZBL S$*#SS$_NORMAL,RO ; Return success 
ocB3)— 31 son re BRw 10_DONE ; Complete 1/0 request 
05 Na 689 90$: PS8 3; Return to caller 
OESE 3670 ; 
E9E 3671 ; STOP the unit 
ESE ore ° 
E9E 3673 Stop: 3; Stop the protocol 
;RNGOOO1 54 o0ocs c5 ht) Bexs 1 MOVL UCBS$L_XQ_CDB(R5) ,R4 ; Get COB address 
-2 1178 31 EAS 3676 BRW SHUTDOWN” PROTYP : Shutdown the unit 
OEAG 3678 ; CHMODE - set new multicast List 
OEA6 3679 ; 
OEA6 3680 CHMODE: 
0488 30 OEA6 681 BSBW SETUP_MODE ; Get XMIT setup buffer 
06 50 9 OEA9 ors BLBC RO,1 ; Exit if error 
0 0 OFAC 368 MOVB  #xQ_FC_V_CHMODE,- ; Set function request 
20 A DEAE 684 CXBSB_RQ7FUNC(R2) ; 
17 peey eH JMP asp)? ; Call back caller and return 
OC96 31 OEFB2 3687 108 BRw 10_DONE ; Complete 1/0 request 


00 
00DC ¢? 
00C4 8F 


00000000 ° GF 


53 
06 50 
0124 8F 


0196 ¢5—s $2 


0060 8F 
68 AS 
ooBCc C5 
0 


20 A 
00sCc C5 


0800 8 
44 A 

21 a3 05 

06 


SN 
a a ot 


NOME OOD NO MEW 9 OONO UE WIN OO 


SN NNN NSS 


AAA NANIAIAIPPPS POPOPIPONUNINY 


OOOOGOGOSOSOSOOOSOSOOSOOSOSOSOOOSOSOSOOSOSOSOOOOOOCOCOOOCOOC OOOO OOCOOOOO 
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= VAX/VMS_QNA driv 
START = START UNIT 


3 
r =JAN-1985 17:49:06 VAX/VMS Macro 
§ PROTOCOL ree 198. bo :s0iS0 ¢ 


-SBTTL START = START UNIT'S PROTOCOL 
START = START UNIT'S PROTOCOL 
Functional description: 
This routine Totttates the protocol on the unit. The QNA is reset if first 
unit online. The free List is filled and the first receive started. 
If a failure occurs the unit shutdown sequence is entered. 
Inputs: 


R3 = IRP address 
RS = ite address 


IPL = FIPL 
Implicit inputs: 


IRP$L_MEDIA contains a copy of the mode buffer specified by the user. 


IRP$W_BOFF contains the quota taken from the user for the unit. 
Outputs: 
RO = Status return for startup request. 


R1,R2,R4 are destroyed. 
R3, R5 are preserved. 


START:: ;_ Start protocol operation 


1$: 


3$: 


5s: 


CMPB #NMASC _LINPR_POI,- 
CB$B_XQ_PROTRS) eee ae 
r 


ik Are we in PT-TO=PT mode? 
BNEQ 373 
MOVZWL grr eC LENSTN A 32 Set siz ; “a an IRP 
PUSHL R 3% Sav 
JSB G*EXESALONONPAGED 32 Biiscoke he IRP 
R3 3% Restore R 
32 Br if success 
3 Set error return 


BLBS RO, 1$ 
MOVZWL #SS$_INSFMEM,RO 
RSB Return to caller 


MOVL R2,UCBSL_xXQ_STIRP(RS) :% Save startup IRP 

BISwW #UCBSM_ x0 START T!UCBSM_XQ_STACK,=- ;% We are now in the startup 
UCBSW a okvstscnsi 7% and Stack wait state 

4345 CBSL_XQ_CPID(RS) : gg fs a4 saved already? 


Br 
MOVL  UCBSL_CPID(R5) .U(BSL_xO _épibcrsy’s “stee. save creator PID 


: Set up idle UCB 


MOVZWL th -jis A 
ucBs$ ) Reset gfatus and error summary 

CPB #10. re ae oT: SIRPSB_XO_FUNC (RS) 

BEQL 


$ “be if yes - don't reset the 


04-00 Pa 
DRIVER. BUGSRC JXQDRIVER.MAR; 1 


Is this a rovesars soeret tant 


= 
| 


XQDRIVER 
v04-001 


wn hou 


Oonrow OO OO 


fue 


61 


80 
FS 


60 


8 
52 


FFFFFFFF 
FFFF 
04 AO 
0804 
40 
81 


81 


024A 
O00E2 
024E 
00E6 


SOOOMNDWWNO}\ 
MEMNFWODOW"S 


= VAX/VMS QNA dr 
START = START UN 


DO OEFB 3745 
EFB 
EFE 746 
EFE 74 
EFE 3748 
DO 43 . 
96 OFO “§ 
Bros ‘ 
gs 4 i 4 
1 OFOC 3754 
0 Sror 8780 
aie 
SE OFT 758 
9A OFIC 3759 
OF 1F 760 
OFIF 3761 
OF 1F 76¢ 
OFIF 376 
OFIF 3764 
OFIF 3765 
OFIF 3766 
OFIF 3767 
OF 1F 768 
OFIF 3769 
OFIF 3770 
OF 1F 3771 
91 OFIF 377 
12 OF22 377 
90 OF24 377% 
F5 OF27 3775 
OF2A 3776 
OF2A 3777 
OFOA 3778 
OFA 779 
OF2A 3780 
ors 781 
OF2A 378 
OF2A 378 
D1 OF2A 3784 
OF 30 
12 OF31 3785 
B1 OF33 3786 
OF 37 
13 OF39 3? ? 
BO OF 788 
OF 3F 
D1 OF41 3789 
12 OF44 3790 
B1 0F46 3791 
12 oF49 79 
DO OF4B 379 
OFSF 3794 
BO OFS2 3795 
56 P38 
659 379 
F59 3798 


iver 
IT'S PROTOCOL 


413 


mi rpadh 5 47:49:06 AX/VMS Macro v04-00 


=SEP-1984 00:20: 


MOVL IRPSL_PID(R3) ,UCBSL_XQ_PID(RS) ; Save starter'’s PID 
: Check for CDB 
bs: MOVL  UCBSL_XxQ_CDB(RS),.R2 ; Get CDB address 
INC COB_B_UNTCNT(R2) ; One more unit on this controller 
ASSUME CDB"STS_V_INITED EQ 0 
BL 609-8. STSTR2) , 108 ; Br if ol ready inited 
Baw 0$ ; Else, init CbB 
10$: MOVL R2,R4 ; Copy CDB address 
MOVAB UCBSB_xQ CDBPRM(RS),RO ; Get UCB parameter address 
MOVAB CDB_B’SETPRM(R4) ,R1 ; Get CDB parameter address 
MOV7BL #uCB$C_xQ_COBPRM,R2 ; Set size of parameter List 
> Check order of UCB parameters 
; ASSUME UCB$B_xXQ_CON EQ UCB$B_XxQ_CDBPRM 
: Check order of COB parameters 
: ASSUME C{DB_B_CON EQ CDB_B_SETPRM 
ASSUME NMASC_STATE_ON NE -1 
ASSUME NMASC_STATE_OFF NE -1 
13$: CMPB "RO), TRI) 3; Match? 
BNEQ 1a$ ; Br if no 
mOVB (R1)#,(RO)¢ ; Store CDB value in UCB 
SOBGTR R2,13$ ; Loop if more to check 
> NOW, check if user has given a hardware physical address. 
: RO = Address of parameters in UCB 
; R1 = Address of parameters in CDB 
: ASSUME CDB_G_PHA EQ CDB_B CON+1 
ASSUME UCBSG"xQ_PHA EQ OCB$8_x0_CON+1 , 
CMPL #-1, (RO) ; Is user physical address defined? 
BNEQ 15$ : Br if yes : . 
CMP #-1,4(R0) ; Is user physical address defined? 
BEQL 16$ . Br _if_not . 
15$: MOVW @NMASC_PCLI_PHA, IRP$W_XQ_CODE(R3) ; Assume bad physical address 
CMPL (RO)+,(R1)+ ; Physical address match?? 
BNEQ ; Br if no 
CMPW (RO)+,(R1)+ 3; Still match?? 
BNEQ ; Br if no 
16$: MOVL CDB_G_PHA(R4) ,- ; Return hardware set address 
UCB$G_XQ_PHA(RS) ; just in case we defaulted 
MOV CDB_G_PHAT4(R4),- : one 
UCB$G_XQ_PHA+4(R5) : ein 
: Check users buffer size - must not be more than twice the hardware buffer 
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KQDRIVER = VAX/VMS QNA driver = Ann 138? 476506 AX/VMS Macro V94-00 Page $3 
v04=001 START = START UNIT'S PROTOCOL -SEP-1984 00:20:54 (CORIVER.BUGSRCIJXQDRIVER.MAR; 1 (35) 
4 4 $200 ; size. (Already has been checked against max message size). 
V NMASC_PCLI_BUS, IRPSW_¥2 CODE ; Assume bad buffer size 
“i ef B0 : 4 Hi MOVW @NMASC_PCLI_BUS, IRPSW_¥2 cCODE(R3) : A bad buff i 
0108 ¢4) 3 FSF 0 MOVZWL COB_W_BSZ(R4) ,R1 3; Get device buffer size ; 
05 00&E0 CS CE F64 8 BLBS UCBSB-XQ_DCH(R5) ,178 ; Br if user can't do data chaining 
F69 4 ; && Maybe this is an Internal IRP user 
51 O18 C4 AO OF69 05 ADDW CDOB_W_BSZ(R4) ,R1 ; Fompute twice the normal buffer size 
42 a5 B1 OF eg 06 17$: CMPW UCBSWIDEVBUFSIZ(R5).R1 ; Is buffer size okay? 
2A «OAC 0 BGTRU $ ; Br if too large 
40 AS B4 OF74 08 CLRW IRP$W_XQ_CODE(R3) ; No bad parameters 
19 AB a B08 BISW UCBSA_x@ _RUN,- 3; Indicate we have entered RUN mode 
68 A F79 3810 UCBSW_BEVSTS(RS) : 
1589 30 OF7B 3811 SBW LTI ; Copy multicast address List 
OF7E g1§ ASSUME NMASC_STATE_ON EQ 0 
OF 7E 81 ASSUME WMASC_STATE OFF EQ 1 
07 OODE CS EB oF ze 814 BLBS B$B_XQ_PRA(RS),173$ ; Br if not promiscuous 
54 G7 90 ores $812 MOVB tty eat ede ; Else, enable promiscuous mode 
0307 30 OFB8A 3817 173$: B8SBW SETOP- MODE 3; Allocate setup mode buffer 
06 50 €9 OF8D 3818 BLBC RO,175$ 3 Exit if error 
06 90 OF90 3819 MOVB #xd_FC V_CHMODE ,- 3; Set function request 
20 A2 OF 92 820 CXBSB_RQ~FUNC (Re) : 
9E 16 OF94 Hy 1 JSB a(SP)F ; Complete request 
05 OF 38 3856 175$: RSB ; Return to caller 
4 3894 3; Error on parameter validation 
inert B0 Ore 3826 igs: MOVW BAD_PARAM_TBL=2(R2],IRP$W_XQ_CODE(R3) ; Return parameter code 
50 14 QA OQOF9E 3827 19S: MOVZBL S*#SS$_BADPARAM,RO ; Return bad parameter error 
05 oral 389 RSB 3; Return to caller 
3580 3 Initialize CDB 
51 020A 8F 3C OFA S36 208: MOVZWL #CDB_C_ZERO,R1 ; Get portion of CDB to init with zero 
3E BB OFA? 383 PUSHR #*M<R1-R2,R$,R4,R5> > Save registers 
00 62 99 2c DFAS 834 MOVCS #0, (R25,#0,R1, (R2) : Zero the structure 
3E BA OFAF 3835 POPR #*M<R1,R2,R3,R4,R5> ; Restore registers 
OFB1 836 ASSUME CDB_L_FQFL EG 
FB1 383 ASSUME 14 L-FQBL E29 CDB_L_FQFL+4 : 
54 82 7E OFBI 38 MOVAQ (R23+7R4 3 Skip Link pointers. copy CDB address 
eee 39 ASSUME CDB_W_SIZE EQ CDB_L_FQBL+4 / 
82 51 BO OFB4 40 OVW R1, R2)+ ; Store size of structure 
FB? 841 ASSUME (CDB_B_TYPE EQ CDB_W_SIZE+2 
FB7 eh ASSUME CDB_B FIPL EQ CDB_B TYPE+ 
82 0833 8F B80 OFB7 4 OVW A#<IPL$_XQ_FIPL@8>TDYNSC_CDB,(R2)+ ; Set structure type and FIPL 
FBC 44 ASSUME CDB _L_FPCEQ CDB_B_F IPL? 
o00016es"Ee 9E re 45 OVAB FORR_PROC,(R2)+ ; Set fork process address 
FC 46 ASSUME CDB_L_FR3 EQ CDB_L_FPC+4 
FC 4 ASSUME OB L_FR4 EQ CDB_L_FR3+4 : 
82 7C OFC rt: CLRQ (R2T+ > Clear fork R3 and R4 
FCS 384 ASSUME (CDB_B_NEXTXMT EQ CDB_L_FR4+4 
Bree 29 ASSUME CDB_B_NEXTRCV EQ CDB_B NEXTXMT+1 
OFC 5 SUME CDB-B-RCVMAP EQ CDB_6_NEXTRCV+1 
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FC 26 ASSUME cog B_XMTMAP EQ CDB_B_ RCVMAP+1 
D4 OFC 5 CLRL (R2T+" Clear slot in use flags 
FC 54 ASSUME CDB_L_RCVMAP EQ CDB_B_XM nfm 
FC7 55 ASSUME (CDB- LL “XMTMAP EQ CDB- L RCVMAPS# <= <MAX C_RCV-1>> 
9A OFC? 3856 MOVZBL &#<MAX"C_XMT-1>+<MAX_-C_RCV-1>,R1 ; Sef mumber of mapping vectors 
44 FCA 57 30$: NEGL #) . ne? ; Indicate no napping info 
F OFCD 58 SOBGTR p if mo 
FDO 59 ASSUME 8 L-RRINGPA EQ CDB_L_XATRAPS<GecMaKe _C_AMT=1>> 
co 44 7860 ADDL #CDB_@_QUEVES~CDB_i  RRINGPA, R2 ; Skip Fing entry pointers 
9A ay 861 MOVZBL WCB. C_QUEUVES,R1 ; Set number of queue Listheads 
DE OFDA s¢ 40$: MOVAL (R2)7(R2)+ ; Set forward Link 
dO FD 86 MOVL mb ‘s tRd)s oe Bye gee ink 
FS OFE1 3864 SOBGTR f more Listheads 
88 pres aba BISB PCOB. STS_M_INITED,CDG_B_ i 7k 99P, 3; Set initial status bits 
OFE9 3508 : Initialize COB defaults 
OFE9 3868 ; 
BO OFE9 3867 MOVW UCBSW_xa til - : Init CDB buffer size 
OFED 870 CDB_W 
BO re 3871 MOVW ucesu~ xQ *HBOCRS), CDB_W _QUOTA(R4) ; Set initial quota 
OFF7 $876 
OFF? 387 ASSUME INIT_C_AQUOTA LE 255 
OFF7 3874 ASSUME CDB_6 MQUOTA EQ CDB 8 AQUOTA+1 
BO OFF? 3875 MOVW = @<IRIT_ OTAaS>, ; Initialize Maximum QUOT» 
OFFB 3876 COB_B AQUOTACRA) and zero Additional QUOTA 
OFFE 3877 ASSUME UCBSB_%Q_MLT EQ UCBSB_XQ_PRM+1 
OFFE 3878 ASSUME CDB_B mLT" EG C0B_B8 
B0 ores 3879 MOVW ucesB~ Xa _PRM(R5),CBB_B_PRM(R4) ; Set the promiscuous mode 
1005 3880 3 _and the all multicast enable 
9E 1005 3881 MOVAB UCBSB_XQ_CDBPRM(R5),.RO ; Get address of UCB parameters 
9E 100A 3882 OVAB CDB_B-SETPRM(R4),R1 ; Get address of CDB parameters 
9A 100F 3883 MOVZBL #UCBSC_xQ_SETPRM,R2 ; Set size of parameter List 
90 1012 3884 45$: MOVB (RO)+, (RID ; Store parameters 
F5 1015 3885 SOBGTR R2,45$ : Loop if more 
30 1018 3886 BSBW MOVE MULTI : Copy multicast address List 
BO 101B 3887 MOVW CDB_Q@_BS7(R4),- ; Set buffer size 
101F 3888 UCBSW~BCNT (RSS 
1021 $650 PUSHQ 4 3; Save R6,R7 
DO 1024 3890 MOVL 3; Save CDB address 
DO 1027 3891 MOVL Ucése CRB(RS) ,R4 : Get CRB address 
19s8 ss ASSUME IDBSL-CSR 
DO 1028 § OVL aCRB$C_INTD+VECSL _I1DB(R4),- ; Save CSR address 
ier " CDB_L _USR(R6) 
D0 1031 3836 MOVL ucBSL™ _DDB(R5) ,R7 t DDB addres 
dO 1932 89 MOVL DDBSL-UCB(R7) ,CDB_L _ucpoires ; Set UCB Ff address 
1938 94 
1038 95 CPUDISP <<790,50$>,- 
1038 96 <780,50$>,- 
ieee 97 <750,50$>,- 
1 2 98 <730,50$>,- 
1038 i <UV2,50$>,- 
1928 ¢ <UV1,70$>> 
105 “ 
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xQDR yer - VAX/VMS QNA driver =JAN-1985 17:49:06 VAX/VMS Macro Vv04-00 Page 5 
V04- START = START UNIT 15 PROTOCOL ay ~}382 00:20: ‘06 LORIVER. BUGSRCIJXQDRIVER.MAR; 1 ° (32, 
;RNGOOO1 1057 -4 508: ; ALL but MicrovAx 
:RNGOOO! igap 38 sesiedlcy mcesigpy 
NGOO001 \p2e ° : 
isn Wat i ; Allocate map registers for receive buffers and one transmit buffer. 
"“ ef B0 1922 308 hovw #511,UCBSW_BOFF (RS) ; Set worst case byte offset 
105D 30% ASSUME VECSW_MAPREG+2 EQ VEC$B_NUMREG 
105D 3905 ASSUME VECS$B_NUMREG+ EQ VECS$B- DATAPATH 
34 AG D4 105D 3906 LRL CRBSL_INTD+VECSW MAPREGTRS ) Clear map register + datapath 
56 _1C A6 DE 1060 3907 MOVAL CDB_L_RCVMA ° ; Get seeping slot address 
07 9A 1064 a88 MOVZBL #MA RCV-1,R ; Get number of receive slots 
00000000'GF 16 1067 3909 55$: JSB G*10C 1 OUBAMAP : Allocate a set of map registers 
50 €9 106D 3910 BLBC 0,6 r if unavailable 
86 34044 DO 1070 3911 MOVL CROs INTD+VECSW _MAPREG (RA), (R6)+ ; Save map info 
FO 57S F 5 Ye 4 SOBGTR : Continue 
OSEE 8F 3C 1077 3914 MOVZWL #MAX_PKT_SIZE+18,- : Set transmit buffer size to max 
7E AS 107B 3915 UCBSQ@_BCAT(RS) ; Ethernet packet size + header 
00000000'°GF 16 107D 3916 JSB G* IOC SALOUBAMAP ; Allocate a set of transmit registers 
2350 €9 1083 3917 BLBC 0,60$ Br if unavailable 
1086 3918 ASSUME COB L XMTMAP EQ CDB_L RCWMAP+<4*<MAX. C_RCV=-1>> 
66 34 A464 00 1086 3920 MOVL CRBSL INTD+VECSW “MAPREG(R4) , (R6) ; Save transmit map info 
108A $5 : Allocate mapping for QNA RING structures. 
56 10 AS DO 108A 39 5 MOVL § CRESL_AUXSTRUC(R4),R6 =; Get CDB address 
108E 95 ASSUME CDB_G_MAPPED y CDB_G_RRING 
108E 3926 ASSUME CDB_G_XRING EQ CDB_G_ RRINGSRCV. K_LENGTH 
57 0162 C6 9E 158 927 MOVA CDB-G “MAPPED (RO). R7 ~ ; Get stérting ring asereny 
FEOO 8F 1093 3928 BICW #*C<VASM_BYTE>,- 3; Get PCBB byte offs 
57 1097 3969 R7,UCB$W BOF F (RS) 
O0as oF B0 1pna 930 MOVW #COB_C C_MAPPED,UCB$W_BCNT(R5) ; Set Block size 
00000000 ' GF 16 10A0 3931 JSB 5, OE SAL CUBANA? ; Allocate map registers 
09 50 €8 10A6 33g BLBS RO,65$ ; Br if allocat $0 
10A9 3933 60S: POPQ R6 3; Restore R6 
50 0344 8F 3C 10AC 3934 MOVZWL #SS$_INSFMAPREG,RO 3 Set reuttictent map registers ik 
05 ise) $36 RSB 3; Return with error if 
108 937 ASSUME VECSW_MAPREG+2 EQ VECSB ree ee of 
108 338 ASSUME VECSB- _NUMREG+1 EQ VEC$B”DATAP sh 
34 AG dO ie 939 65$: MOVL CRBSL_ INTD+VECSW_MAPREG erie - _ RING mapping info zh 
O11C C6 1088 Bey CDB_L-RINGMAP(R6) if 
ee Be > Convert the virtual RING address to a UNIBUS mapped address if 
09. =séESF 1988 944 ExTZv Avy | VPN, ; Get RING page number +f 
71 6 10BA 3945 S*#VASS~VPN.R7,R : =| 
00000000 * GF dO 1980 946 MOVL G*RMGSCL. epteage. RO ; Get SPT address 
78 A DE 19cz 947 MOVAL Sy PAS AP UCBSL_SVAPTE(RS) ; Set ete address 
fino CF 16 10¢9 948 JSB G*I0C$LO OADUBAMAP ; Load the PCBB map registers 
;RNGOOO!1 3C 6 10CF 1 MOVZWL ucesv? Set BA AOe -BA 
| RNGOOO1 ay FO 10D3 ¢ INSV CRBSL IN IntDevectu, RAPREGCAS) - ; Set BA9-BAI5 
:RNGOOO1 51 ov” 09 10D6 ‘ 
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XQDRIVER = VAX/VMS QNA driver -JAN-19 6 VAX/VMS Macro v04-00 Pa 
yo O0T START = START UNIT'S PROTOCOL Beth 198e 00:30:54 EORIVER ooesacteGDSTvER.MaRs 2m (90) 
;RNGOOO1 22 11 «1009 4 ARB 80$ ; Continue 
RNG i : DB - 70$ MicrovAX I 
‘ e 3 s er 
[RNGOOO! 100879 . 
;RNGOOO1 1008 8 : 
++ yaa } + 988 ; Compute physical address to start of rings for MicrovAXx I. 
1008 3960 ASSUME (DB_G -RAPPED EQ coe G_RRING 
1008 3961 ASSUME CDB_G_XRING FO 6.6. RRINGSRCV K_LENGTH 
57 0162 C6 9E 10D 306 MOVAB CDB-G_MAPPED( Rb). OR? ; Get Starting ring address 
57. 15 7 EF SE? 96 EXTZV #VASVIVPN,#VASS_VPN,R7,R1 ; Get virtual page number 
O0000000'GF D0 19e5 3964 MOVL G*MMGS$GL_SPTBASE ,RO ; Get base address of SPTs 
50 6041 DO 10FC 3965 MOVL.  (RO)CR1],RO : Get the PTE cont 
clea“ tard of cB Hd 966 BICL3) #*C<VASM_BYTE>,R7,R1 ; Get buffer elteet {8A00-BA08) 
10F8 967 ASSUME PTESS_PFN GE 13 
0D 09 30 FO a 968 INSV RO,#95413,R1 ; Copy BA09-BA21 
10FD 969 
10FD 3970 80S: 3 
10FD 3971 3 a calculate the physical/virtual address of each of the ring buffer 
10FC 397 ; entries, saving the addresses in the PHYSICAL ADDRESS/VIRTUAL 
8 44 t 3 ADDRESS VECTOR 
50 0162 C6 9E 10FD 3975 MOVAB CDB_G_RRING(R6),RO ; Get first ring entry 
57 D4 1102 3976 CLRL R7 ~ ; Use R7 as ring index 
44 A647 51 00 1104 3977 90S: MOVL Rt CDB_L_RRINGPA(R6)(R7]; Save RING physical address 
51 OC CO 1109 3978 ADDL ancy C“LENGTH,R : Skip to next 
7C A647) 0 550-—s—s«#DNsSCédM1#0C~—=s«3979 MOVL c6B- t SRRINGVA(R6)CR73; Save RING entry virtual address 
50 OC CO 1111 3980 ADDL prey ENGTH,RO : Skip to next 
EC 57 O08 F2 Wi3 4 AOBLSS #MAX -{ “REV. R?. 90$ ; Loop if more 
1113 383 ASSUME eos G_XRING EQ CDB_G_RR yy C_RCV+1>#RCV_C_LENGTH> 
44 A647 51 00 111 984 1 C08 w RRINGPACRE)ER7 Save RING physical address 
51 OC CO 1110 4 ADDL V_C_LENGT : Skip over chained entry 
50 Oc CO 1133 388 ADDL PREV ¢C “LENGTH RO ; Skip over chained entry 
57 Dd4 11 3 988 CLAL R7 
68 A647 = 51~~=~+»0 1153 989 100$: MOVL R1,CDOB_L_XRINGPA(R6)(R7]; Save ais physical address 
OC CO 112A 3990 ADOL axnt C~LENGTH : Skip to next 
009C (647 50 bO 11 4 991 MOVL CBB=L XRINGVA(R6)CR7): Save RING entry virtual address 
50 6c £9 11 338 ADDL Oray _C_LEN Gry. R 3 Skip to next 
EB 57 g F 1136 399 AOBLSS #MAX"C”XMT,R 0$ . Loop if more 
68 A647 ««51—s«i0 1 A 994 MOVL 1, CBB7L AXRINGPACR6) CR72: Save last RING physical address 
i : 44 : Initialize receive ring buffer entries 
57 08 9A 113F 238 MCVZBL ppg ; Set number of entries in ring 
51 0162 (6 9E Bp 99 MOVAB COB G ARING RG). R1 ; Get address of RING buffer 
8000 8F BO 1147 4000 110$: MOVW #RCO_FLG_M_LAST.- ; Init flags 
61 1148 4001 RCV_0_FLAGTRI) ; 
08 Al B46 114C 40 $ CLRW RCV_W STS(R1) ; Zero status 
51 9¢ CO 114F 400 ADDL #RC ve LENGTH,R1 : Skip to next entry 
F2 F5 W138 enRe SOBGTR R7,1T0$ 3; Loop if more 


E 14 
XQDRIVER = VAX/VMS_QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro y04-00 Pa 7 
valli START = START UNIT'S PROTOCOL ~3Eb 1382 06:30:48 DRIVER.BUGSRCIJXODRIVER.MAR; 1 ™ (3) 
1} ; ; ; The Last entry ‘‘chains’’ back to the first ; 
8000 8F BO 1155 4 MOVW = #RCV_FLG_M_LAST, = ; Init flags 
61 1188 2009 RCV_O_FLAGTRI) ait: 
44 A6 BO 115A 4010 MOVW COB_L_RRINGPA(R6) ,= ; Set the chain address : 
04 Al 115D 4011 RCV_W_ADDR(R1) 3 ; 
46 A 9B 115F & 1 MOVZBW SPE hon na war gat ine) o® ; Set high part of chain address ; 
02 A 1162 401 RCV_W_ADDRHI(R1) 3 3 
AB 1164 a3 BISW #RCU_OSC_M_CHAIN!- ; Indicate chain operation 3 
1165 4015 RCV_OSC_M VALID,=- ; and valid address : 
C000 8F 1165 4016 RCV—W_ABDRHI (R15 ; ; 
02 Al 1168 : 
116A 4017 : H 
BF as 1318 ; Initialize transmit ring buffer entries 3 
57 046 9A 116A 4020 MOVZBL #MAX_C_XMT,R7 ; Set number of XMIT entries ; 
51 O1CE C6 9E 1190 4021 MOVAB CDB_G RRING(R6),R1 ; Get address of RING buffer - 
8000 8F BO 1172 40 ¢ 120$:  MOVW XMT_FLG_M_LAST,= ; Init flags 
61 1178 40 XMT_@_FLAGTR1) : 
08 Al B4 1177 4024 CLRW XMT_W_STS(R1) ; Zero status 
51 0c CO 117A 4025 ADDL #XxMT_C_LENGTH,R1 ; Skip to next entry 
F257 F5 1128 43 § SOBGTR R7,1208 3; Loop if more 
1180 4028 ; The last entry “‘chains’’ back to the first 
1180 $0¢2 s i! 
8000 8F BO 1180 4030 MOVW #XMT_FLG_M_LAST,=- ; Init flags ‘| 
61 1184 4031 XMT_Q_FLAGTR1) ; 3 
68 A6 BO 1185 ret MOVW COB_L_XRINGPA(R6) ,- ; Set the chain address 3! 
04 Al 1188 403 XMT_W_ADDR(R1) ; : $ 
6A AG 9B 118A 4034 MOVZBW CDB_L_XRINGPA+2(R6),- ; Set high part of chain address 3 
02 Al 118D 4035 XMT~W-ADDRHI (R1) | paee 3 
AB 118F 4036 BISW #XMT_BSC_M_CHAIN!- ; Indicate chain operation 3 
1190 4037 XMT_DSC_M VALID,- ; and valid address 3| 
C000 8F Bb 4038 XMT_@_ADDRHI(R1) 3 | 
02 Al 119 | 
1195 4039 ; ; | 
;RNGOOO1 1195 -1 3; Initialize contiguous buffer area for MicroVAX I. 
;RNGOOO1 1195 “3 : : 
;RNGOOO1 1195 x CPUDISP <<790,140$>,- | 
3h*G0001 1195 4 <780,140$>,- = 
;RNGOOO1 1195 oe <750,140$>,- 
;RNGOOO1 1195 -6 <730,140$>,- 
;RNGOOO1 1195 7 <UV2,140$>,- gee 
;RNGOOO1 1195 8 <UV1,122$>> ; Initialize buffer area for UV! 
;RNGOOC1 1181 . 
;RNGOOO1 1181 =.10 122$: ; MicroVAX I 
;RNGOOO1 1181 ~=.11 
;RNGOOO1 1181 16 3 
;RNGOOO1 1181S ; Init MicroVAX I buffer area 
;RNGOOO1 1181 14 : 
“9 52 020C C6 00 1181 4049 MOVL co8 L_UV1BUF (R6) ,R2 ; Get buffer area address 
09 12 1188 4050 BNEQ 1238 ; Br if present 
1188 4051 POPQ R6 ; Restore R6, R7 
50 01246 BF 3C¢ 1188 4 26 MOVZWL #SS$_INSFMEM,RO ; Else, return error 
05 11¢ tee RSB 
11€1 4054 
11€1 4055 1238: ; 


;RNGOOO1 


set 


5 OC A 
52 ? 15 ; § 


0 
00000000’ GF 
50 6140 
FFFFFEOO ef 
51 2 
Ob 09 0 
0 
QOAC (640 2) 
00C4 C640 2 
QOOO0SEA 
QOOO0SEA 
E2 50 


QOO905EA 4 
&250 01 
5456 


3 
0 
24 0246 C4 


00000000 "EF 
55 0214 C4 
00 01312090 8F 


20 A 000000 
os 1E2F *CF 008 


CA 05 
00cD 


38 
52. 0114 C4 


OF A2 02 


iver 
IT'S PROTOCOL 


130$: MOVL RI CB _XMT_PACR6)CRO] : 


ee ec ee ee ee ee ee ee ee ee el ec el ee ed ee ee ee ee ee ee ee ee eed 
VDDD DO LS & & HF 9 WN OF WNVOOM PP WOWOWMOVMNINIM SO VNOOP LSPIMIONCOP FN —TCTOWu—"O Pk OU a 
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PPP BE AAI ARI NINININPITIDY 4 2 OOO FFF HBMMMMOVVVVOIAMNMOAOANO 


=SEP=-19 


MOVAB 12(R2),R2 
EXTZV #VASV_VPN,#VASS_VPN,R2, ab; 


MOVL G*MMGSGL phere: 3 


MOVL (R1)CROJ,R 
BICLS #*C<VASM BYTED, R2,R1 


ASSUME ae PFN GE 13 
IN 


SV 7#13,R1 :; Copy BA09-BA21 

CLRL RO ; Use RO as receive buffer index 
125$:  MOVL R1 ait -LRCV_PA(R6)CRO] ; Save receive physical address 

MOVL R2,CDB-L RCV~VA(R6) CROJ ; Save receive virtual adress 

ADDL GAAK OBOF STS _0v1,R1 ; Skip to next buffer 

ADDL #MAX_BUFSIZ_UV1,R2 ; ae 

AOBLSS #MAX_C_RCVUV1,RO,125$  ; Loop if more 

CLRL R ; Use RO as transmit buffer index 


MOVL R2.CDB-L-XMT~ VACRG) RO) ; 
ADDL oaky OBOF SIZ _Ov1,R 


ADDL #MAX_BUFSIZ_UV1,R2 ; 
AOBLSS #MAX_C_XMTUV1,RO,1308_ ; 


140$: MOVL R6,R4 ; 


POPQ R6 ; 


: Setup fork process to start CDB timer 


PUSHR #*M<R3,R4,R5> 
BB 


@ 
—_ 
“now 
om 


MOVAL CB LT 


MOVAB Frags TIMER 
MOVB eves s 


CoB_L_CSR(R4) ,R2 : 


: Master reset device 


ase iae UCBSB_DIPL(RS5) § 
MOVW #XQ_CSR_M_RESET,CSR(R2) ; 


g-3Eh=198¢ 00:00:54 


; Compute physical/virtual address of buffers in buffer area 


; Get the PTE conten 
; Get buffer offset (8A00-BA08) 


; Skip to next buffer 


; Save registers 


2g 
MOVQ #TQE_ DELTA, TaeS0. DELTACRS) 


soneAT, TQESL _ROPIB(RSS ; Set the TQE sopers type 
BSBW 3 ¢ 


: Get hardware CSR pene 


150$: POPR #*M<R3,R4.R5> : Restore registers 
MOVL 


; Sync access to UCB 
Master Reset device 


96 AX/VMS Macro y04-00 Page 4 
DRIVER. BUGSRC JXQDRIVER.MAR; 1 (35) 


Get start of buffer area 
Get virtual page number 


Get base address of SPTs 


Save transmit physical address 
Save transmit virtual address 


Loop if more 


Set R4 to CDB address 
Restore R6, R7 


; Br if timer already going 
; Do not allow driver to be unloaded 
while the TQE is active 
et the TQE address 
; Set the delta time 
t address of timer wakeup routine 


reate fork process for TQE 


Get CSR adddress 


¥ 
Vv 
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~ VAX/VMS_QNA dr 
START = STA 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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i 
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160$: 


BICW  #XQ_CSR_M_RESET,CSR( e 

BISW  #XQ"CSR“M~ILOOP,CSR(R IS 

ASSUME NMASC_LINCN_NOR EQ 

ASSUME NMASC"LINCN-LOO FQ 

BLBC  CDB_B~CON(RZ) ,160$ 

BISw #xQ CSR_A_ILOOP!X0_CSR_M. 
CSRTR2) ; 

BISW #XQ_CSR_M_INTENA,CS 

MOVW  CDB_L_RRINGPA(R4) ,- ; Set 
RCVCIST(R2) : 

MOVB CDB_L_RRINGPA#2(R4),- ; 
RCVCST1(R2) 

MOVW CDB_L_XRINGPA(R4) ,- 
XMTCIST(R2) 

MOVB CDB_L_XRINGPA+2(R4),- 
XMTCST1(R2) 

ENBINT 

: Initialize QNA mode. 

BSBW SETUP MODE ; 

BLBC } =—_- RO, 1808 > Exi 

MOVE 4#x@_FC_V_INIT,- ; Set 
CXBSB_RQ7FUNC(R2) : 

JSB F $ : 

SETBIT #CDB_STS_V_RUN,- : 


PROTOCOL 


MOVL 
MO 
MOVW 


MOVB 
MOVB 


MOVB 
MOVB 
MOVB 
MOVB 


VL 
MOVZBL 
ASHL 


= ann 1383 42:58:06 erty Macro 


“SEP-1934 


UCBSL_CRB(RS),R1 

CRBSL~ 

GP i lai 
R 


WRIR 
R1, VECTOR(R2) 


Copy the Ethernet Hardware Address 


PHYADDO(R2) ,CDB_G_HWA(R4) 
PHYADD1(R2),CDB-G_HWA+1(R4) ; 


INTDSVECSL_1DB 


: Get 
(R1),R1 ; 
set 

; Set 


PHYADD2(R2),CDB_G_HWA+2(R4) ; 
PHYADD3(R2),CDB_G_HWA+3(R4) ; 
PHYADD4(R2),CDB_G_HWA+4(R4) ; 
PHYADD5(R2),CDB_G_HWA+5(R4) ; 


Set CSR mode and enable receiver 


; Br if LOOPBACK is disabled 
OP.- ; Else, set internal extended 


{R2); Enable transmit interrupts 


; Set address of transmit List entry 


DRIVER.BUGSRCJXQDRIVER.MAR; 1 


; The master reset will take some time to complete ... 
so we will delay to give the QNA some time. 


TIMEWAIT #1,#XQ_CSR_M_ERR,CSR(R2),W ; Wait for 10 usec, bit should not 


set 
CRB adddress 
Get IDB address 


_ Set vector address (divided by 4) 
; Lonvert to real vector address 


vector address 


; Save Hardware address 


R2) ; Clear the master reset 
2) ; DISABLE LOOPBACK 


address of receive list entry 
and high order part 


and high order part 


; Re-enable interrupts 


setup, the QNA mode 


f error 
function request 


Complete function request 
Indicate QNA is running 


WAAPIPIPIPOPIPORPIPPIPOPURIPUPUPIPIPIPUPINININININ — — | 9 @OOOD000 


ee ee ce ee ee ee el ee ce er eel ee ee ee ee el el el el el el eel elt el el el el eel cl ce el el el el el el eel cel eel eel el eel eel ell el eld 
PROPRPIPPPIOMIPRIUIRINIPINININININININIOE OU 8 3 OO PO BOO NN 


PALANAN AINA AI AAAI AI AAAI AA AA 


Po ot ot tt tt ot ot tt a UMM UMMAH HMAHee eee 


ALAA. AAAI AAAI 


driv ver 

IT'S PROTOCOL 
SETBIT 
ASSUME 
ASSUME 
BLBS 
BI $u 

eer ie 

180$: RS 
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=JAN-1985 8:96 AX/VMS Macro v04-00 Pa 
-SEP-1934 58; DRIVER.BUGSRC JXQDRIVER.MAR; 1 
hia eatox ora nue ; Indicate UNIT i i 
3 Indicate s runnin 
Ute W Vatust Stas) ; 
a -LINCN. woe EQ a9 
sg’ +00 Fe 
CdB_B_ “tN RES 70$ ; Br if LOOPBACK is enabled, don't 


: enable receive interrupts 
COB_L_CSR(R4),R Else, get CSR adddress 
#xa -t3h al RcvENA, CSR(RO); Enable receive interrupts 
FILCRCVCIST ; Start the receives 
CAB ESS NORMAL ,RO ; Return success 

; Return to caller 


;+* 
; FORK_TIMER = Routine to create a fork process to start a timer 


: This routine starts up a FORK process which is used to start a timer. 


; Inputs: 


R3 = Address of system routine to handle the timer expiration. 


RS = Address of TQE block 


IPL = Greater than Queveast IPL 


> Outputs: 
ko 


OPK_ TIMER: 


PUSHAB 
JMP 


; Inputs: 


IPL 


; Outputs: 


gr process is started. 
R4 are destroyed by EXESFORK 


; Create fork coho dl to start timer 

#OYNSC_TQE,FKBS$B_TYPE(RSS ; Set structure type 

#IPLS$ QueU UEAST. FRBSB_ FIPL(RS) ; Set IPL of fork process 

BASTARY ; Push address of fork process 
G*EXESF STOR m ; Create fork process to start timer 


-+¢ 
; START_TIMER = Fork process to start the CDB timer 


; This routine starts up the CDB which is used to monitor the QNA controller 
; for proper operation. 


RS = Address of TQE block 
= Queveast IPL 
; Implicit inputs: 


TQE$Q_DELTA(RS) 
TOESL-ROPID(RS) 


= Delta time interval 
= TQE request type (SSSNGL or SSREPT) 


met 


1 14 
XQDRIVER = VAX/VMS QNA driver -JAN-1985 17:49:06 AX/VMS Macro v04-00 Page 91 
v04=001 START = START UNIT'S PROTOCOL “SEP=1984 00:20:54 (CORIVER.BUGSRCIXOL AI VER.MAR; 1 (35) 
1 4199 ; at are destroyed. 
: 2 0; TQE element added to timer queue 
1 4 [ 
1 4203 START_TIMER: 
1 4204 DSBINT #1PLS_TIMER e IPL 
OC AS 10 A5 DO 1 4 MOVL  FKBSL-FR3(R5) TOESL Fc thS): Set sééress of timer wakeup 
20 AS) «60 90:s«133D «420 MOVB  TQESL~ROPID(RS),- et TOQE request type 
OB AS 1340 420 TOESB CROTYPE (RDS : 
50 20 a5 7D 1342 & 08 MOVQ TQESQ"DELTA(RS),R : Ge t delta time 
00000000'GF CO 46 4 ADDL Gr EXESCd LYST IME RO : Add in current time 
00000004'GF 08 4p 4210 ADWC G*EXESGQ_SYSTIME+4,R1_ ; _ 
00000000 ' GF 16 1354 4211 JSB G*EXESINSTIMQ ; Insert element on timer queue 
135A & \¢ ENBINT ; Restore IPL 
05 1350 421 RSB 
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XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro v04-00 Page 92 
Yoon OOs SETUP_MODE = SETUP THE TRANSMIT BUFFER T ets 4 b0:30:50 DRIVER .BUGSRC JXQDRIVER.MAR; 1 ° (3) 
! ; 2 F we -SBTTL SETUP_MODE = SETUP THE TRANSMIT BUFFER TO INIT QNA 
} ; 2 1H : SETUP_MODE = SETUP THE TRANSMIT BUFFER TO IWIT QNA 
: 4 19 : Functional description: 
1 2 4221 : This routine initializes the TRANSMIT buffer the sets up the QNA operating 
! ze ? § 3 mode. 
3 4geh ; Inputs: 
135— 4 $ : R3 = IRP address 
135E 4 : RG = COB address 
} 44 ? 3 3 RS = UCB address 
3E 4 0 ; IPL = FIPL 
: 2f ? 3 : Outputs: 
133 4 34 : RO = status of request 
V2 : $$ : R1,R2 are destroyed 
135— 4 38 SETUP_ERR: ; Setup error 
50 601246 8F oC (1 3 4239 MOVZWL 9 #SS$_INSFMEM,RO ; Set error return 
05 : o7 ? re $B ; Return to caller 
1384 4 $8 SETUP_MODE : 
53 DD 1364 424 PUSHL R3 ; Save R3 
51 00C8 8F 3¢ 1306 4244 MOVZWL #CXBSC HEADER+INIT_C_BuF SIZE R1 ; Size of init buffer 
soeeaeadl .' Bene 1398 Pr t2 4. Wy 6 EXE SALONONPAGED . Allocate. the SETUP Transmit buffer 
; Restore 
E750 =€9 13 4247 BLBC RO,SETUP_ERR ; Exit if error 
3C «6BB SC«AI377~=«=—«4248 PUSHR canes R3,R4,R5> ; Save registers 
2 00 2C 1379 4249 MOVCS #0,(R $.#-1,R1,(R2) ; Fill structure with BROADCAST! 
51 FF +4 14s 
Se BA 1380 : 30 POPR #*M<R2,R3,R4,R5> ; Restore registers 
a 2 3 : Initialize buffer to look Like a CXB 
0094 <3 52 »vO0 1 4254 MOVE R2,I1RPSL_XQ _SETUP(RS5)  ; Save address of setup buffer 
1 4255 ASSUME CXB$B_TYPE EQ CxB$W_SIZE+2 
1387 4 2$ ASSUME CXBSB_CODE EQ CXBSB_TYPE+1 
DO 1387 4 MOVL #<DYNSC_CXBa16>'- Set size and type of structure 
1 ; 4 38 CXBSC_HEADER+INIT_C_BUFSIZE,- 
oo1800¢8 or : ; 425 CXBSW_SIZE(R2) 
0090 +4 B0 ' F 4260 MOVW #INIT_C_BUFSIZE,CXBSW_BCNT(R2) ; Set size of transfer 
1 $3 4261 $ 
! M ? $6 : Initialize SNA mode word 
1395 4264 ASSUME NMASC_STATE_ON EQ 0 
1 4265 ASSUME NMASC_ STATE OFF EQ 1 7 
0244 (4 Be 1395 4 66 CLRW © CDB_W" MODE (R4) ; Init mode word 
05 0247 (6 EB 1399 426 BLBS CDB_B_PRM(R4) ,10$ ; Br if promiscuous state is OFF 


WOR ANS = VAX/VMS Q 
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rive N-1985 17:49:06 VAX/VMS M 04- 
SETUP_MODE - P j 06:30:52 UGSR 
44 
05 $8e8 


r “JA 00 Page 93 
TUP THE TRANSMIT BUFFER T gry AN=13 4 DRIVER.BUGSRCJXQDRIVER.MAR; 1 . Rrs 
BISW #CDB_MOD_M_PROM,- 


Else, enable promiscuous mode 
DB _G_MOBE TRS) 
BLBS COB_B MLT(R4),20$ 


Br if multicast state is OFF 


Wwr—O0e ma 
— 
Oo 
bod 


SNNINOO OW 


02 4 
‘ 
63 4 B1SwW #cD MULTI,=- 3; Else, enable all MULTICASTS 
ogee C4 & COB_@_MODETR ° 
46 C4 4273 208:  BISW  CDBWIMODE(R4),CXBSW_BCNT(R2) ; Set mode bits 
18 ag 3 4274 MOV 4g T DATA, CXBSW_BOFF(R2) ; Set offset to start of data 
24 A 3 é i MOVL R3,CXBSL“T_IRP(R2) ; Save IRP address in CXB 
é z : Initialize physical address 
50 024A C4 4 8 MOVAB COB_G_PHA(R4) ,RO ; Point to Physical Address 
51 38 a2 4 80 MOVAB CXBST-T_DATA+1(R2),R1  ; Point to setup buffer (skip Ist col) 
61 8 4281 MOVE (RO) +> (R1) ; Stuff the physical address 
08 Al =: 80 4 6 MOVB (RO}+,8(R1) : ewe 
10 Al 80 & MOVB (RO)+,16(R1) Z ene 
18 Al 0 & Be MOVB eee eesrals : — 
0 Al 0 4285 MOVB (RO)+, ain} $ ne 
8 Al 80 2 iy MOVB (RO)+,40(R1) 5 — 
? bs : Initialize multicast addresses 
4290 PUSHQ = R2 ; Save setup buffer, IRP address 
52 025¢ ce 4291 MOVZBL CDB_B_MULTI(R4),R2 ; Get number of multicast addresses 
8 4 38 BEQL ; Br if none 
52 OC 429 CMPB #12,R2 ; Is count okay? 
04 4294 BGEQU ; Br if yes 
? 2 BUG_CHECK NOBUFPCKT,FATAL ; Else, error 
53 4 39 30$: MOVZBL #6,R3 : Only 6 slots left in first half of 
4298 ; _setup buffer : 
50 O25€ C4 4299 MOVAB CDB_G_MULTI(R4),RO ; Point to multicast address List 
09 2 9 BRB 50$ 3 Start with first half 
? 8 : Check if first half of setup buffer is full 
06 53 4304 40$:  SOBGTR R3,50$ ; Br if first half of buffer still open 
51 39 4305 ADDL #64-7,R1 ; Skip to second half of buffer 
53 06 4 6 MOVZBL #6,R3 3; Reset count for second half 
? be ; Leave last address as BROADCAST 
? ” : Store multicast addresses 
51 4311 508: INCL RI » Skip to next column 
61 0 4 \§ MOVB (RO)+, (R1) ; Store multicast address 
08 Al 0 431 MOVB (RO)+,8(R1) ; pee 
10 Al 43146 MOVB (RO)+,16(R1) 3 sen 
18 Al 4315 MOVB He HE ; ae 
$3 Al 4 MOVB (RO)+, teat : pee 
8 Al 3 431 MOVB (RO)+,40(R1) z woe 
DB 4 18 SOBGTR R2,40$ : Br if more 
4320 80$: POPQ R2 ; Restore setup buffer, IRP address 
50 1 4321 MOVZBL #SS$_NORMAL,RO ; Return success 
4 § JSB a3) + 3; Call back caller as co-routine 
O0EO D4 = 6 4 INSQUE (R2),@CDB_Q_XMTREQ+4(R4); Insert request on xmit queue 


55 


52 


38 

0110 C4 

5D 0246 C4 
0108 


O10A C4 


5101 
6000000 


0 
20 A2 
OOEC C4 


004C 
08 C4 
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20$: SUBW CDB wW _BSZ(R4 
258: MOVB S*#BYRSC_Cxe,- 
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RECEIVE BUFFER LIST “SEP=1934 00:20: 
. -SBTTL FILLRCVLIST = FILL RECEIVE BUFFER LIST 
FILLRCVLIST = FILL RECEIVE BUFFER LIST 


; Functional description: 


This routine fills the rece‘ve buffer List up to the 
to the receiver. 


; Inputs: 


R2 = Buffer Address (ADDRCVLIST ONLY) 
R4 = COB address 


IPL = FIPL 


Outputs: 


RO-R2 is destroyed. 
ALL other registers are preserved. 


-ENABL LSB 
ILLRCVLIST:: : 
CLRL R2 3; No buffer here 
ADDRCVLIST:: ; 
PUSHR #*M<R3,R4,R5> ; Save registers 
L COB_L_UCBO(R4) RS : 
BBC #COB_STS_V_RUN,- 2 
DB_B_STS(R4) ,40$ 
10S: CMPW = CDB"W"BS2(R4),- 
DB~W~QUOTA(R4) 
BGTRU 35$ ; 
TSTL = R2 : 
BNEQ 208 ; Br if so 
CLRL R1 ; Zero size 
ADDW3 #CXBSC_HEADER+- : 
CXBSC_TRAILER,- ; 
COB_W-BS2(R4),R1 : 


JSB £LE EE SAL ONOHPAGED ; 
BLBC RO, 308 : 
MOV R1,CXBSW_SIZE(R2) . Insert size 

),- ; Subtract from quota 


Insert type 


MOVB ax Vv 
INSGUE (Rey, COB_O_RCVBUF (RE) ; Insert block on | 


; No more buffers given 


BRB 10$ 3; Continue 


> Buffer allocation failure 
$0$:  SETBIT #XMS$V_STS_BUFFAIL.- ; Set buffer alloc failure 


=30nn 138? 47:49:06 AX/VMS Macro 0 e 
4 (CDRIVER.BUGSRCIXOQDRIVER.MAR; 1 


bn | ‘ . uota allocated 
at unit initialization. It also gives any receive buffers allocated 


Fill receive buffer List 


; Add a buffer to the receive List 


; Get UCB address of unit #0 
; Br if device not running 


; Can mew block be allocated ? 


; If GTRU then no, stop loop 
; Buffer already allocated? 


; Determine block size needed 


; Allocate the memory 
; If failure then done 


-RECV,CXBSB_XQ_FUNC(R2) ; Set tunceion request 
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XQDRIVER = VAX/VMS QNA driver ann 1307 2 4o358:06 AX/VMS Macro v04-00 Page 96 
v04-001 FILLRCVLIST = FILL RECEIVE BUFFER LIST ~3Eb=19 4 00:20:54 (CDRIVER.BUGSRCIJXQDRIVER.MAR; 1 (37) 
147E 4385 GDB. DEVDEPEND (AS) : 
24—Ci«d11 i$ 2 $ § BRB ; And give any receives to device 
1486 4388 35$: CLRBIT — STS_BUFFAIL,=- ; Clear buffer alloc failure 
1486 4389 CDB_L-DEVBEPEND(R Ri) : 
52 dS 148C 4390 TSTL cf 3 Any buffer? 
1A 1 14 3 4391 BEQL 50$ : Br if not 
O2EE C4 «91 «14 4 5 CMPB CDB_B_AQUOTA(R4),=- ; Can we use the additional quota? 
O2EF C4 1494 439 CDB- “8B. _MQUOTA(R4) : 
06 IE 1497 4394 BGEQU§ 40$~ ; Br if not 
;RNGOOO1 O2EE C4 96 1499 1 INCB EOE .B_AGUOTAIRS) ; Else, increment the additional quota 
-4 CE 11 149D 4396 BRB 5$ i: Use buffer, but don't let 
149F 439 3 QUOTA go negative 
149F 4398 
50 52 DO 149F 4399 40$: MOVL R2,R0 : Get address of buffer 
06 13 14A2 4400 BEQL © 50$ : Br if none 
00000000 ° GF 16 ivan te8) JSB G*COMSDRVDEALMEM ; Beal locate buffer 
03 10 14AA 1008 50$: BSBB El ogd RECEIVE ; Start the receives 
38 BA 14AC 4404 POPR M<R3,R4,R5> ; Restore registers 
0S 14AE 4405 RSB 
14AF 4406 -DSABL LSB 
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XQDRIVER - VAX/VMS QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa 7 
v04-001 START_RECEIVE = START ANY RECEIVE REQUES Bonn 1382 00:30:56 DRIVER. BUGSRC JXQDRIVER.MAR; 1 = (38) 
12a 1788 - -SBTTL START_RECEIVE = START ANY RECEIVE REQUESTS PENDING 
17a ehh : START_RECEIVE = START ANY RECEIVE REQUESTS 
GAR aig ; Functional description: 
1G4AF 4416 : This routine attemptes to start any receives that may be gonesne. This 
14AF 4415 ; involves dequeueing a free receive buffer, mapping it, and load ng it 
14AF red | ; address and size into the device. 
1G4AF 4417 ; 
1th $2}8 : trou 
1GAF 4420 : R4 = CDB address 
aa a 13 RS = UCB address of unit # 0 
14AF 44 i : IPL = FIPL 
1GAF 6626 ; 
Vea gg | Outouts: 
1GAF 4427 : RO-R3 are destroyed. 
1GAF 4628 ; All other registers are preserved. 
14AF 4429 ; 
1h 8 
14AF 4432 START_RECEIVE:: ; Start receive operation 
14AF 4433 PUSHQ R6 ; Save R6, 
01 €1 1482 4434 BBC #CDB_STS_V_RUN,- ; Br if device is not running 
2B 0246 C4 1484 4439 COB_B_STS(R4), 108 F 
asa et “3 : For MicroVAX I, we will not use map registers. 
:RNGOOO1 1488 3:3 CPUDISP <<790,5$>,- 
;RNGOOO1 14B8 4 780,5$>,- 
Ps G0001 1488 mM <750,5 >,7 
ent fre a 
:RNGOOO! 1cor 8 <UV1,40$>> ; For MicroVAX I, use alternate path 
; RNGOOOT 1404 -19 5$: > ALL but Microvax I 
3 RN . 
;RNGOOO1 $7 ". op EB ts 12 FFC #0,#MAX_C_RCV-1,CDB_B_RCVMAP(R4),R7 ; Get a free mapping slot 
-9 07 13 14DA 4446 BEQL 10$ ; Br if none - just exit 
53 OOEC D4 OF 1206 4447 REMQUE @CDB_Q_RCVBUF(R4),R3 ; Get a free buffer 
1C 1461 4448 BVC 20$ . Br if buffer found 
14E3 4449 10S: POPQ R6 ; Restore R6, R 
05 WOES ret RSB ; Return to caller 
14E7 1226 ; Mark slot in use and create buffer address/character count image 
ieee 1283 : in receive buffer and load UNIBUS adapter map registers. 
oa 15,57 90 Er Hese OOH SEIRIT ar-ctgeb nevsines, Bark at te UESe nds 
A ; Save mapp 
52 24 AS soOD0 ser? 43? MOVL UCBS$L_CRB(RS) .R2 ; Get CRB address 
14F4 1089 : Find next ring entry and insert data 
14F4 4460 ; 
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XQDRIVER - VAX/VMS QNA driver g- JAN-1 38? hf 48:96 AX/VMS Macro v04-00 an: 
v04-001 START_RECEIVE = START ANY RECEIVE REQUES 5-SEP-1984 0 3 DRIVER.BUGSRC IJXQDRIVER.MAR; fag (38) 
56 19 AG QA 14F4 4461 MOVZBL CDB_8 ETRE ER) ORG ; Get next ring entry 
19 AS 96 14678 446 INCB CDB-B-NEXTRCV(R4) ; Bump ring pointer 
+ 8F BA 14FB 446 BICB #*C2MAX_C_RCV-1>,- 3; Modulo rcv ring size 
19 AG oF 4464 COB_B_RERTRCV(R) : 
23 A3 56 90 128 4465 MOVB R6,CRBSB_XQ_RING(R3) ; Save ring entry number 
56 7C A446 00 1504 446 MOVL CDB_L_ INGVA(R4)CR6],R6; Get virtual address of ring entry 
66 B4 1509 446 CLRW RCV_W_ FLAG(R6) ; Zero the FLAG word 
8000 8F B80 1508 4468 MOVW #RCU_STS_M_LAST,- 3; Init the STATUS word 
08 A6 150F 4469 RCV_@_STS(R6) ; 
131} 1259 PUSHQ R ; Save IRP, COB address 
1219 at ; The QNA'sS receive buffer size must be a multiple of 2 
;RNGOOO1 50 D4 1514 CLRL 3 tere out high part of RO longword 
1516 4474 ASSUME <XQ_C_HEADER+XQ_C_CNTSIZ & 1 > EQ 0 
10 Al 1218 4475 ADDW3 XQ_C_HEADER+XQ_ C_CNTSIZ,= ; Calculate message length 
50 0108 C4 151 4476 B_W-BSZ(R4) ,RO : ous 
50 —Ss#FF 4 78 1236 4477 ASHL #-1,R0,R0 ; Convert byte count to WORD count 
06 A650 AE 1521 4478 MNEGW RO,RCV_W ATACRS) ; Store Length (2's complement) 
51 38 A3 9E 1525 4479 MOVAB CXB$T_R BATA(R t gm Get receive buffer data addr 
04 AB 51 «BO 1529 4480 MOVW a RcVU_O A set BA0-R48 
57 1€ A667 DE 1520 4481 MOVAL fob. L RCOMAPCRESER7I, R7 ; Get mapping info slot -ddress 
07 09, 67 FO 13 : 4482 INSV (R73, 99,47, RCV_W yeti me ; Set BA9-BA15 from map reg 
7 06 of EF 1338 4483 EXTZV #7,#6,(R7),R0 ; Get BA16-BA21 also 
02 A6 «650 680 1530 4484 MOV RO,RCV_W_ADDRHI (R6) ; Set BA16-BA21 & zero descriptor bits 
OA A6 «601 BO C1541) 4485 MOVW #1,RCV_W_LENB(R6) ; Set low byte no. equal to high byte 
54 D4 1545 4486 CLRL RG Use direct data path for revs 
1547 4487 ASSUME VECfS_NUMREG EQ VECSW LNAPREG® +2 
52 02 A? QA 1547 4488 MOVZBL 2(R7)7R2 ; Set number of map registers 
53 67 3C 1548 4489 MOVZWL (R7),R3 ; Set first map register number 
00000000'GF 16 154E 4490 JSB G* 10C$LOADUBAMAPN 3; Load the map registers 
1325 reed POPQ R3 3; Restore IRP, CDB address 
1222 rts ; Disable interrupts and queue request to input queue 
;RNGOOO1 8000 8F ~As 1557 1 BISW #RCV_DSC_M_VALID,- ; Set descriptor bits 
:RNGOOO1 02 Ab 1558 3 XMT~W_ADDRHI (R65 ; _"VALID™ buffer address 
3RNGOOO! 0106 (4 «96 1328 3 INCB CoB ‘s _RACVCNT(R4) ; Tally one more receive in progress 
;RNGOOO1 00746 30 1561 «10 BSBW LOAD _RECY ; Give (new) ring address to QNA 
;RNGOOO1 FF6D 31 1564 at BRW $ ; Let's try it again 
;RNGOOC1 1567 1 
3;RNGOOO1 1567.14 
;RNGOOO1 1567 .15 408: ptteerrerrrreeereeerens 
;RNGOOO1 1567 16 ; For MicroVAX I, only. 
: 1 1567 1 petterrererereerrereres 
=15 1567 4510 
1567 4511 ASSUME MAX_C_RCV LE 8 
1567 +216 ASSUME MAX~C™RC Cyuvi LT MAX 
7 7. 00 EB 139! 451 FFC #9, BRAK ¢ JRCVUVI, C08. hs RCVMAP(RG), R7 ; Get a free mapping slot 
13 1360 4514 BEQL 50$ ; Br if none - just exit 
53 OOEC D4 OF 126f 6515 REMQUE @CDB_Q_RCVBUF(R4) RS ; Get a free buffer 
046 1 1574 4516 BVC 60$ ; Br if buffer found 
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driver ~JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa x 
= START ANY RECEIVE REQUES aah 4 00:20: 54 DRIVER.BUGSRCIXGDRIVER.MAR; 1 - att Vv 
17 50$: POPQ R6 i Restore R6, R7 
RSB ¢ Return to caller 


| 
5 
5 
4 
? 
¢ 


MOVW RO,RCV_W_ADDRHI(R6) ~ ; Set BA16-BA21 & zero descriptor bits 
MOVW #1, RCV_W_LENB(R6) ; Set low byte not equal to high byte 
: Disable interrupts and queue request to input queue 
’ BISW #RCV_DSC_M_W iD,- ; Set descriptor bits 
RCV-W_ADDRHI (R65 ; _"VALID™ buffer address 
INCB CDB_B_RCVCNT(R4) ; Tally one more receive in progress 
° BSBW LOAD_RECV ; Give (new) ring address to QNA 
13 908: BRW 40% ; Let's try it again 


; Mark slot in use and create buffer address/character count image 
; in receive buffer and load UNIBUS adapter map registers. 


60$:  SETBIT R7,CDB_B_RCVMAP(R4) ; Mark slot in use 
MOVB R7,CXBSB_xXQ_SLOT(R3) ; Save mapping slot index 


; Find next ring entry and insert data 


‘ MOV7BL CDB_B_NEXTRCV(R4) ,R6 


Get next ring entry 
INCB COB Rance Bay cOs? 


Bump ring pointer 


C_RCV-1>,= ; Modulo rcv ring size 
CDB_B_RERTRCV(RS) : 
MOVB R6,CRBSB_XQ_RING(R3) ; Save ring entry number 
MOVL  CDB_L_RRINGVA(R4)(R6],R6; Get virtual address of ring entry 
CLRW RCV W_FLAG(R6) ; Zero the FLAG word 
MOVW #RCQ_STS_M_LAST,= ; Init the STATUS word 
RCV_O_STS(R6) : 


: The QNA'S receive buffer size must be a multiple of 2 
: CLRL RO ;_Zero out high part of RO Longword 
ASSUME <XQ_C_HEADER*XQ_C 


a -C_CNTSIZ & 1 > EQ 0 
ADDWS #XQ_C_HEADER+XQ_C_CNTSIZ,- ; Calculate message Length 
CDB-W~BSZ(R4) ,RO : ee 
ASHL #-17R0,R0 ; Convert byte count to WORD count 


MNEGW RO,RCV_W_LEN(R6) ; Store length (2's complement) 

MOVL CDB_L_RCO_PA(R4)CR7],RO : Get receive buffer physical address 
MOVW RO,RCOU_W_ADDR(R6) 3; Set BA00--BA15 

ASHL  #-16,R0,R0 : Shift down high byte of address 
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i } ] 35 -SBTTL LOAD_RECV = LOAD CSR'S WITH RECEIVE RING ADDRESS IF NEEDED 
FANG i ! 4 ‘ “ ; LOAD -RECV = LOAD CSR'S WITH RECEIVE RING ADDRESS IF NEEDED 
:RNG ; 130 33 > Functional description: 
;®NGOO01 15D rh ; This routine loads the receive ring address, if the recei: ring has gone 
;RNGOOO1 15D ai; : inva 
3;RNGOOO1 15D 43; 
:RNCOOOI in aa eee 
:RNGOOO1 1308 46 : R3 = CXB address for receive 
3RNGOOO1 15D we 8 R4 = COB address 
RNGOOO1 1508 .48; RS = UCB address 
3RNGOOO1 1208 49 ; 
zRNGOOOT 130 tt : IPL = FIPL 

IBY HB | ouous 

1308 $23) : R4,R5 are preserved. 

1508 ret : RO-R3 may be destroyed. 

He 
;RNGOOO1 1508.1 LOAD _RECV:: : Load port command 
:RNGOOO| 52 0114 C4 D0 1308 § : MOV VL COB_L_CSR(R4) ,R2 ; Get CSR address 
: NGOO01 15DD .4 : If the QNA has invalidated the RECEIVE RING, then we must reset the 
teed 1300 2 ; starting address of the ring list to point to the current entry. 
:RNGOOO! OE A2 7 3 1300 a ; hy ie CSR_M_RCVINV,CSR(R2); 4° yoo ring still valid? 
; ‘ 3 s 
;RNGOOO1 51 23A3 9A 1563 214 MOVZBL CKBSB_ XQ_RING(R3) ,R : Else, get ring entry number 
;RNGOOO1 51. 44 A641 00 15€7~ 15 MOVL EARINGPACRA) ERT], R1: Get the buffer mapping value 
3RNGOOO1 A2 51 B60 15€C .16 MOVW Rt Bat OLIST(R2 ; Set address of receive List entry 
;RNGOOO1 51 FO ef 78 13F0 17 ASHL #=16,R1,R1 : Shift down high order address bits 
anna 06 A2 51 90 15F5 = .18 MOVB R1,RCVLST1(R2) ate 

NGO001 OOF8 D6 «§6©663)~—=—COOE:«=CO15F9 x19 40S: INSQUE (R$) ,acoB_ Q "RCVPND+4(R4)° ;_ Insert CXB on WAITING queue 

- 05 ieee ret: RSB ; Return to caller 


DO 
dO 


DO 
D 
1 


E9 
EO 


3¢ 


B0 
B3 


13 


E1 


10 


7D 


FUSS 


RAF FF rr ee ee 


Ab Ab dh Ab dh Ab dh ah ah Ah ah a 
NSMOOM OO OQ FF Fr or oe ro or eo oo 


= 
oa 
~“ 
in 
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$} 

4 

f 
= 
r4 
— 
@ 


4698 20$:  SETBIT #XQ7CSRTV7ERR.R 
4 SETBIT @# 


4700 

rts 1 30$: BSBB SCHED" FORK 
4705 INTEXIT: 
4704 MOVa 


a ea ee ee ee a a ce ee ee me a ee a ee ee ee ee ee ee ed ed ed ed ed ed ed ed 
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QNA-INTR = QNA INTERRUPT SERVICE ROUTINE S-SeP=198¢ 8 R.BUSSRC RGD! 


ao ~SBTTL QNA_INTR = QNA INTERRUPT SERVICE ROUTINE 
; QNA_INTR = QNA INTERRUPT SERVICE ROUTINE 
; Functional description: 


; This routine services the interrupts generated by the QNA for completion 
; of requests. 


; Inputs: 
0O0(SP) = ADDRESS OF UNIT IDB ADDRESS 
RO,R1,R2,R3,R4,R5 ARE AT O4(SP) TO 1C(SP) 


IPL = DIPL 


; Outputs: 


THE INTERRUPT IS DISMISSED 


; IMPLICIT OUTPUTS: 


a(SP)+,R4 : 
MOVL IDBS$L_UCBLST(R4) ,R5 3 
oi IDBSL_CSR EQ 0 


(R4), P 
MOVL  UCBS$L_XQ_CDB(R5) ,R4 : 
BEQL INTEXIT : 
ASSUME CDB_STS_V_INITED EQ 0 
BLBC  CDB7B STSTR4),INTEXIT ; 
BBS #CDB_STS_V_ERR,- : 
CDB_B STS(R4),INTEXIT : 


MOVZWL CSRTRZ),R3 


The interrupt bits can only be cleared by ob hog one's into them, therefore 
we will write one's into all bits which a 


MOVW = R3, CSR(R2) : 
BITW #xd_CSR_M_XMTINT!- ; 

“CSRIM-RCVINT.R3 / 
BEQL 208 ; 


: We will now check for any errors. 


#XQ_CSR_V_NXM,R3, 308 


T RR, = 
eB STSURES 


(SP)+,RO 


00:20: 


; DEQNA done interrupt 
; Get IDB address 


; Get CSR address 


; Ignore futher interrupts 


Page 10 
DRIVER. BUGSRCJXQDRIVER.MAR; 1 = (4 


Get first UCB address 
Get CDB address 
Br if CDB not allocated 


Br if NOT inited 
Br if there was an error 


Fetch the CSR contents 


already have one's. 


Release interrupt interlocks 
Is this a valid interrupt? 


Br if no, indicate error 


Br if no errors 
Set fatal error indicator 


Schedule a fork process 


Exit interrupt 
Restore Regs 
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yOenOr QNA_INTR = QNA INTERRUPT SERVICE ROUTINE Boy 1982 00:30:46 LORIVER.BUGSRC XNQDRIVER.MAR; 1 - 94) \ 
52 ge 7D 1630 £583 MOVQ (SP)+,R2 
54 E 7D 1er8 47 $ MOVQ (SP)+,R4 
02 1643 470 REI ; Dismiss the interrupt 
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1644 $208 ~SBTTL SCHED_FORK = SCHEDULE THE FORK PROCESS 
en i 4 a ~SBTTL SCHED_FORKC = SCHEDULE THE FORK PROCESS WITH R3 CLEAR 
1644 1318 ; SCHED_FORK = Schedule the fork process 
190? rat ; SCHED_FORKC = Schedule the fork process with R3 clear 
1908 rt AF ; Functional description: 
1644 0319 ; This routine is called to schedule the error and 1/0 completion fork process. 
1644 4718 ; The Last controller CSR values are saved for examination. f the 
1644 4719 ; fork process is already pending, only the last CSR values are saved if there 
1644 47 9 3 was an error. 
1644 4721; 
1644 47 § ; Inputs: 
1644 4723; 
1644 4726; R3 = Last CSR value 
1644 6725 ; R4 = COB address 
1644 47 § ; 
1644 4727 ; IPL = DIPL or higher 
1644 4728 ; 
1644 4729 ; Outputs: 
1644 4730 ; 
1644 4731 ; R3 is cleared if SCHED_FORKC entry. 
1644 47 ¢ 3 R4 is destroyed. 
1644 4733; RS = CDB address 
1644 4734 ; ‘ 
bor 4! 2 ; If KQ_CSR_V_ERR is set in CSR, then the following is returned: 
;RNGOO01 1644 13 CDB_L_LASTCSR(R4) = new CSR contents 
+1 1644 4738 
1644 4739 ;-- 
1644 4740 
1644 4741 SCHED_FORKC:: ; Schedule fork process, clr R3 
53 D4 1644 oree R3 3; No device error 
1646 4745 SCHED_FORK:: : Schedule fork process ; 
0246 C4 02 Fe 1278 4744 BBSS #CDB_STS_V_FORK_PEND,CDB_B_STS(R4),10$ ; Br if fork pending 
164C 4745 ASSUME CDB_L_FQFL EQ 0 
DO 164C aces MOVL ; Get CDB fork block address 
63'AF 9F 164F 474 PUSHAB B“FORK PROC ; Else, set address of fork process 
00000000'GF 17 1638 ros JMP G*EXESFORK ; Schedule the fork and return 
04 53 of F1 1658 4750 10$: BBC #xXQ_CSR_V_ERR,R3,20$ ; Br if not error 
;RNGOOO1 10 Aa dO 1926 1 MOVL R3,COB_C_CASTCSR(R4) ; Save last CSR value 
“1 05 1660 4752 208:  RSB ; Return to caller 


gal R 


v04= 


—mn 


;RNGOOO1 
;RNGOOO1 
sRNGOOOT 


050€ 
F4 50 


50. «1A A2 
16 38 A2 
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AX/VMS Macro v04-00 Page 104 
DRIVER.BUGSRC JXQDRIVER.MAR; 1 (43) 


Offset to timeout routine 
or/completion fork process 


: Err 
STS_V_FORK_PEND,CDB_B_STS(R4) ; Clear fork process flag 


R eRS, ; or not an error 
#XMSV_ERR-FATAL,CDB_L_DEVDEPEND(R4) ; indicose, fetal error 


Get UCB #0 address 
Bump error counter 
Shutdown the QNA device 


Process receive error 
Abort messages 


Complete transmits 


Assemble receive packets 

Br on error or none 

Count blocks received 

Get byte count 

Count bytes received 

Br if not multicast 

Count multicast blocks received 
Count multicast bytes received 
Br if FATAL receive error 


196 $e : he -SBTTL FORK_PROC = Error and completion fork process handling 
1991 $f § + FORK_PROC = Error and completion fork processing 
1661 47 8 ; Functional description: 
1661 4759 ; 
1661 4760 ; This routine is called as a fork process to handle errors and all completions 
1661 4761 ; pending. 
1661 1586 3 
1661 47635 ; Inputs: 
1661 4764 ; 
1661 4765 ; R3 = Last CSR value 
1661 2288 $ R4 = COB address 
1661 4767 ; RS = CDB address 
1661 4768 ; 
1661 i +4 ; IPL = FIPL 
1661 4770; 
1661 4771 ; Outputs: 
1661 AE: ; 
1661 4773 ; RO-R5 are destroyed. 
1661 4774 ; 
1661 4775 ;-- 
0819° 1661 4776 -WORD TIMEOUT-. : 
1663 4777 FORK_PROC: : 
1663 4778 CLRBIT #CDB 
E1 1669 4779 BBC xa Csr 
1098 4780 SETBIT 
90 1673 4781 MOVB R3,CDB_L_BEVDEPEND+3(R4) ; Save low byte of CS 
DO 1678 $78e MOVL COB L_OCBO(R4) R5 : 
6 167D 478 INCW UCBSWTERRCNT(R5) F 
1 1681 4784 BRW SHUTDOWN_QNA 3 
1684 4785 
1684 4786 3$: s 
1684 rth tf 3; Process receive errors 
1684 4788 H 
30 1684 4789 BSBw RCV ERROR : 
1 1687 4790 BRW 25$ 3 
168A 4791 
168A 1 7$: 
168A 7 
31 168A ; 8$: BRwW 60$ 3 
168D 4793 ; 
168D 4794 ; Complete any TRANSMITS or RECEIVES 
1950 $232 . 
1680 4796 10$:  PUSHQ R6 ; Save R6, R7 
30 1890 4798 15$: BSBW ASSES_PKTS 3 
E9 1693 4799 BLBC $ 3 
1696 4800 INCC  CDB_L_DBRCTR(R4) : 
3C 16A0 4801 MOVZWL CXBSW-BCNT(R2),RO : 
16A4 4 0¢ CNTR RO,CDB_L BRCCTR(R4),.L  : 
E9 1680 4 BLBC «=«-« CXBSG_LR_BEST(R2),178 =: 
16B4 4804 INCC COB_L-MBLCTR(R4) 3 
16BE 4805 CNTR 0,Cod8 L_MBYCTR(R4),L F 
EO 16CA 4 6 17$: 6868S #rCv_STS"V_ERR,- : 
16CC 4 CXBSW_R7STS(Re) ,3$ ; 
E1 16CF 4808 BBC #RCV_STS-V_ESETUP, - ; 


Br if NOT an ESETUP receive 
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0 
4 


5 
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198) 4 98 CXBSW_R_STS(R2),20$ ; 
£4 1eb6 : ! BBSC 3s eS err ; Br if SETUP in progress and clear it 
x 1908 : ! 20$: MOVZWL CHBSOCR PTYPECAS) RI ; Pick up protocol type from buffer 
16DE 4821 
B1 18D 4 4 218: CMPW R1,#NI_CTR_PROTYP ; Is this the Remote Console protocol? 
12 1663 ¢ BNEQ 228 : Br if not 
91 16€5 4826 CMPB #NI_CTR_READ,=- ; Is this a read counters request? 
16E¢ 4825 XBST_R-USERDAT(R2) : 
12 1689 4 § BNEQ ; Br if not 
; 1958 ? pseu mgr -CTR_REQUEST ; Else, process the request for counters 
3 ier 4 § 228: BSBW MATCH_PROTYP ; Try to match protocol type 
E8 16F3 4830 BLBS ® i ; Br if success 
DO 16F6 4831 23$:  MOVL CDB_L_PRAUSER(R4) .RS : Try to get the PROMISCUOUS user 
12 16FB 4 § BNEQ 4$ ; Br if one found 
19ro 4 INCC COB_W_UFDCTR(R4) ,W ; Else, no such protocol type 
nD 1 4834 258: PUSHL CXBSL-LINK(R2) ; Save next in chain 
30 170A 4835 BSBw ADDRCOULIST ; Add buffer to receive List 
ant 17 4 § POPL Re ; Restore next buffer 
12 1710 4 BNEQ 25% 3 Leop if more 
31 4 Z 3 BRw 158 ; Look for next completed buffer 
1715 4840 ; If there is a promiscuous user, then copy the packet for the promiscuous 
1715 4841 ; user. There is a chance that the data received is not for the protocol 
171 theg ; type user just found, we will have to re-verify that the destination 
1715 48435 ; address is for our physical address. This is because if we are running 
1715 4844 ; promiscuous mode, then we will receive all packets, including those not 
I : rF :; intended for the protocol user. 
ihe 4 rh 27$: ASSUME NMASC_STATE_ON EQ 0 
Hay; 4848 ASSUME NMASC_STATE_OFF ga 1 
—8 1715 4849 BLBS COB_B_PRM(RZ) ,32 ; Br if hardware is NOT in promiscuous mode 
EB 171A 4850 BLBS CXBSG"R_DEST(R2) , 30S ; Br if multicast address, this 
171E 4851 ; will be checked later. 
D1 al & 2¢ CMPL CXB$G_R_DEST(R2),- ; Is this packet for this protocol 
17 5 £08 _G_PAYADR(R4) ; _user? 
12 1724 4854 BNEQ 2 ; Br if not, don't copy packet 
Bi 17 $ 4855 CMP CXBSG_R_DEST+#4(R2),- ; Are we sure? 
17 4 2$ £08 _G_PRYADRS4 (RS) : 
12 ig : 2 5 BNEQ $ ; Br if no, dont't copy packet 
Vy ; ? 33 ; Copy the packet for the promiscuous user 
DD 17 4861 30S: PUSHL R5 ; Save user's UCB address 
DO (17 4 ¢ MOVL DB_L_PRMUSER(R4) ,RS ; Get PROMISCUOUS user's UCB address 
13 «(17 486 BEQL 1$ ; Br if none 
30 17 4864 BSBW Eg? ACY ; Give buffer to promiscous user 
8EDO if . ? 5 31$: POPL R ; Restore user's UCB address 
1730 4 ; If multicast address is the destination, then make sure that multicast 
1f : 2 o8 3; address is in multicast address list for this unit. 
9 17350 4 9 $2s: BLBC CXBSG_R_DEST(R2) ,34$ ; Br if physical address 
0 1741 4 BSBW MATCH MOLTI ; Try to match multicast address 
E8 1744 4872 BLBS RO, 54 ; Br if success 


) 
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1747 4873 33$: INCC UCBSW_XQ MNECTR(RS),W ; Else, multicast not enabled 
1751 4874 INCC SPG_ULUFOCTRCRG) ; Also added in unrecognized frame dest 
AA 11 1 : ? o? BRB ; Release buffer 
175D 4 8 : If the user did not request data chaining, then check to make sure he gets 
4 4 ? 4. ; no chained buffers... may be user of Internal IRPs! 
10 Ag ds 158 4880 34$: TSTL G7GSL LINK (Re) ; Is this a chained message? 
0 13° 1760 4881 BEQL 6 ; Br if not 
1762 4 § ASSUME NMASC_STATE_ON EQ 0 
1762 4 ASSUME NMASC_STATE OFF EQ 1 
4A 0060 CS” EB 176 2 ¢ 8LBS UCB$B_xXQ_DCA(RS) ,45$ ; Br if chaining not allowed 
1767 4 § : If there is a pending receive 1/0 request, complete it. 
1700 ? e ; Otherwise, queue the buffer and, if enabled, deliver attention AST. 
50 42 A5 3C Hs 14 4889 $68: MOVZWL UCBSW_DEVBUFSIZ(R5),RO ; Get size of user's max buffer 
1768 4891 [88 the following code could cause problems for an altstart user, 
1768 ret} 788 if the altstart user happens to receive a buffer which is 1 or 2 
1768 489 788 bytes Longer than they are capable of handling. Only if the 
1768 4894 :88 protocol is not ‘‘padded’’, because the size check allows for 
1768 4895 288 2 bytes of count to be subtracted from the message size. 
1768 4897 - 
1768 4898 ; Check the size of the received buffer against what the user protocol can 
18 8g | Manele 
02 A3 1768 4901 ° SUBW3 = #XQ_C_CNTSIZ,- ; Get the size of the receive buffer 
51 1A Ae 176D 490 CXBSW"BCNT(R2),R1 ; minus the count word 
50 51 4B1 1770 490 CMPW R1,R0 ; Is the received size larger than 
1773 4904 ; _what the user can handle? 
3C) )=— 1A «2(1773)=— 4905 BGTRU 45$ ; Br if yes, error 
0192 C5) 605 61775 4906 TSTL CBSL_XQ_FFI(RS) ; FAST Interface supported? 
06 13 1779 4907 BEQL $ ; Br if not, standard interface 
02D1 30 1778 4908 BSBW f ASESHLACV FFE ; Else, complete FAST receive 
FFOF 31 a4 rhs 4 BRW 15$ ; Look for more completions 
51 OOA8 C5 9E 1781 rh 4 378: MOVAB UCB$Q_XQ_RCVREQ(RS),RI1 ; aonupe uate Ue Ore running in 
03 £1 1786 4918 BBC #UCBSV_XQ_SHARE,- : Br if UCB is NOT in SHARED mode 
09 68 AS 7 8 gig UCBSWDEUSTS(R5),38$ 
17 £38 ; If running in SHARED mode, then we must use the Listheads in the SHR 
17 4917 ; data structure. We will use the source address from the received message 
; if 1315 3; to match against the SHR structure destination address. 
O1FD 3830 17 4920 ° BSBW = MATCH_SRC ; Check for a match or source address 
B7 12 i? 4 1 BNEQ 33$ ; Br if no shared user found 
1 $3 5 : SHARED user found, use Listheads in SHR data structure. 
51 20 A1 9E 1790 4925 ° MOVAB SHR Q_RGVREQ(R1) RI ; Get address of waiting IRPs 
53 60 1 OF 1794 49 § 38$: REMQUE a(RT)7TR ; Remove waiting IRP 
0s 1D 1798 49 BVS ; Br if none - queue for Later 
oocCc C5 A2 179A 49 3 SUBW RO,UCBS$W_xXQ_QUOTA(RS)  ; Else, lessen quota so it can be 
179F 49 3..increased on completion 
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02E8 3 179F 49 BSBW A USTSHARCV_I10 ; And finish the 1/0 
FEEB 1 fA 3 BRw 15$ ; Look for next completion 
2A 43 ; Check buffer quota and queue if quota okay. 
OOcc CS 50) «= A2s«17A5 «4935 40S:  SuBW RO, UCBSW_XQ_QUOTA(RS) ; Decrement the quota 
iC le 17AA 49 : BGEQU $ : Br if we can buffer request 
oocc cS) 5 AO I7AC 49 ADDW R ycoey ae QUOTA(RS)  ; Replace quota 
17B1 49 8 45$: INCC UCBSW_XQ7UBOCTR(RS),W : Else, no buffer available 
17 49 INCC SOB _W_UBOCTR(R4) i ...don't forget CDB counter 
FFF 31 re rh ok BR ; Return buffer 
17¢ 4349 50$: ASSUME UCBS$Q_xXQ_ RCVREQ EQ UCBSQ_XQ_RCVMSG+8 
17CB 494 ASSUME SHR_Q"RCOREQ EQ SHR_O_RCUMSC+S 
51 04 c2 17¢ 4944 SUBL #4 ,R1 3 aoe to backward Link pointer 
17CB 4945 ; of the message queue 
00 B81 62 —E 17CB 494 INSQUE (R2),a(R1) ; Queue received msg for Later 
FC61 QO 17CF 494 BSBW FILLACVLIST 3; Try to fill the receive List 
1291 0 1708 4948 BSBW POKE_USER ; Deliver ASTs 
FEBS 1 120 $383 dR 15$ ; Look for more completions 
1708 $32) : NOW = scan the xmit ring entries 
0107 C4 95 1708 495 é0s: TSTB CDB_B_XMTCNT(R4) ; Any xmits in progress? 
12 170C 4954 BNEQ 70$ ; Br if yes - look for any completed 
;RNGOOO1 0128 31 + 17DE ot BRW 190$ ; Else, all done 
ness Hass, 
:RNGOOO1 0128 «(31 17e1 woke "  BRW 190$ : ALL done 
56 0105 C4 QA 17E4 i983 70$: MOVZBL CDB_B_LASTXMT(R4) ,R6 ; Get last ring entry completed 
56 009C care be \7e? $338 wove ne L KRINGVA(K4) [R61.R6; got gcqress of last ring entry 
- ; Br one 
05 08 A6 17F1 4960 XMT“W_STSTR6) , 75S F 
0 EO 17F4 4961 BBS #XmT_ V_ERR,- ; Br if not done 
EB 08 A6 17F6 496 XMT-W_STSTR6) ,65$ ;  . leave 
OA 34 BS 1779 4963 75$: TSTwW XMT_O_TOR(R6) ; Are we really done? 
E 13 17FC 4964 BEQL 65$ ; Br if not! 
53 O0E4 D4 OF ire 4965 REMQUE @CDB_Q_XMTPND(R4) ,R3 ; Get next XMIT CxXB 
DC 61D «261803 «(49 BVS $38 ; Br if none there (yet) 
064 12 1805 496 BNEQ $ ; Br if more entries on queue 
020A C4 94 «1807 4968 CLRB © CDB_B_TIM_XMT(R4) : Stop the xmit timer 
0107 C4 97 1808 238 77$ DECB CDB_B_XMTCNT(R4) ; One less transmit pending 
0105 C4 96 180F 49 INCB © CDB-B-LASTXMT(R4) : Bump ring pointer 
FC BF «=8A 1813 497 BICB @*CZMAX_C_XMT=-1>,= . Modulo receive ring entry size 
0105 C4 16 497¢ CDB_B_LASTXMT (R45 ; wise 
1819 497% : Transmit complete 
1819 4976 ° CLRBIT XMT_DSC_V_VALID,- ; Indicate that buffer is not valid 
1819 497 XMT_W_ADBRHI (RA) ; 
01 A6 «090 ~«1 I 497 MOVB XMT_@ FLAG+1(R6),- ; Save diagnostic return info 
0119 C4 1 497 COB _B DIAG1(R4) 3 ; 
98 A6 BO 1824 4980 MOVW xeT_@ STS (Rg) - 3 Save diagnostic return info 
55 “= A dO H 49 MOVL a ee Get (presumed) UCB address 
182E 49 : ASSUME CXB$LT“UCB EQ° CxBSL_T"IRP 
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0 00 &4 1 4984 BBSC #0,R5,80$ ; Fix up address @ BR if UCB address 
55 61C AS DO : ; $8 5 MOVL IRPSL_UCB(RS) ,R5 3 Else, get real UCB address 
52. 22 AS) (9A «(1836 «49 $ 80$: MOVZBL CXBSB_XQ_SLOT(R3) ,R2 ; Get mapping slot number used 
A 49 g CLRBIT R2,CDB_B-XMTMAP(R4) ; Clear in use flag 
183F 4990 CPUDISP <<790,90$>,- 
183F 4991 <780,90$>,- 
1 3 $338 <750,90$>,- 
183F 499 <730,90$>,- 
;RNGOOO1 183F al <UV2,90$>,- 
;RNGOOO1 ioe “3 <UV1,100$>> ; Skip map registers if MicrovAXx I 
;RNGOOO1 1858 . 
;RNGOOO1 1858 4 908: ; ALL but MicrovAx I 
;RNGOOO1 1858 oF 
;RNGOOO1 51 24 AS DO 1858 .6 MOVL UCBSL_CRB(RS) ,R1 ; Get CRB address 
=3 185F 4997 ASSUME VECSB-NUMREG EQ VECSW_MAPREG+2 
185F 4998 ASSUME VECSB_DATAPATH EQ VECSB_NUMREG+1 
a Mee dO +44 4999 MOVL CDB_L_XMTMAP(R4)CR2J,- ; Setup map register data 
1865 5000 CRBSL_INTD+VECSW_MAPREG(R1) ; and data path number 
52 95 1865 5001 TSTB R2 ; Was it the pre-allocated one? 
OD 13 1867 2006 BEQL 95$ ; Br if yes ~ clear data path number 
38 A442) «601—s—«CE:sCs«é#éB69 =: 5:00 MNEGL #1,CDB_L_XMTMAP(R4)CR2] ; Indicate map register not aliocated 
186E 5004 RELMPR ; Release the map registers 
03 11 + 1 2603 BRB 100$ ; Complete the request 
1876 5007 95$: ASSUME VECSB_DATAPATH EQ VECSW_MAPREG+3 
3B AG) =—94S «1876 §=55008 CLRB CDB_L_XMTMAP+3(R4) ; Clear data path number used 
50 1A AS 3C 1879 5009 100$:  MOVZWL CXBSW-BCNT(R3),RO ; Get byte count of message 
a Oo Re + f43 aoit MOVL 0,R1 ; Copy length for accounting 
1880 2316 ; Perform accounting for the QNA 
1880 501 : 
1880 5014 INCC — CDB_L_DBSCTR(R4) ; Count blocks sent 
188A 5015 CNTR R1,CDB_L_BSNCTR(R4),L ; Count bytes sent 
50 50 10 78 1896 5016 ASHL #16,RO,R ; Move to high word 
50 01 80 189A 5017 MOVW § $*#SS$ "NORMAL RO ; Set completion status 
Oc €4 1890 5018 BBSC  #XMT_DSC_V SEfuUP,- : Br if SETUP operation 
42 02 A6 189F 5019 XMT_@ ADBRAI(R6),1208___—; ‘ 
05 08 A6- OE ¢} 13A6 5020 BBC #XMT_STS_V_ERR,XMT_W_STS(R6),110$ ; Br if not a FATAL error 
0092 30 18A7 5021 BSBW = XMT_ ERROR ; Process XMIT error 
38 O11 i 50 ¢ BRB 1208 ; Skip the accounting 
1BAC 30 : ; Perform accounting on a per protocol type basis and on unit. 
18AC Hi 6 110$: CNTR R1,UCB$L_XQ_SBYCTR(RS),L ; Bump the bytes sent counter 
1388 3 ? INCC UCBSL_XO-SBCCTR(RS).L © ; Bump the blocks sent counter 
046 EF 18C 028 EXTZV #XMT_STS"V_COL,- ; Get number of collisions 
08 A6 04 18¢4 5029 #XMTSTS"S~COL.XMT_W_STS(R6),R1 
1A 13 1868 030 BEQL 120$ ; Br if none 
51 97 18CA 5031 DECB R1 ; More than one? 
oc 8613 ee 8 ; BEQL 115$ ; Br if only one F 
1 ce 5 INCC COB _L_BSMCTR(R4) ; Count blocks sent with multiple errors 
OA 11 180 5034 BRB 1208 : Continue 
18DA 5035 115$:  INCC CDB_L_BSICTR(R4) ; Count blocks sent with 1 error 


ive 
- Error ond completion fork pr 


— 


:06 VAX/VMS Macro y04-00 Page 109 
254 (CORIVER.BUGSRCJXQDRIVER.MAR; 1 (43) 


; BR if FAST interface CxB 


; Else, get IRP — 
; Save status ret 
; Is there a SETUP aad buffer 


Dl areae a 


owvo wo 


Br if none 


; Dea.locate the buffer 
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Restore status return 

; Finish the I/0 request 
Continue in common code 
Else, complete FFI XMIT 
Start up any other transmits 
Look for next completion 


Restore R6, R7 


. 
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91 5 -SBTTL -RCV_ERROR - Process receive errors 
3 2 a -SBTTL XMT_LERROR = Process transmit errors 
4 : ; RCV_ERROR = Process receive errors 
4) H ; Functional description: 
4) ; This routine adjusts all appropriate counters and checks all errors. 
91 65 ; Inputs: 
91 64 ; R2 = CXB address 
4) 3 R4 = CDB address 
91 067 ; Outputs: 
91 68 ; none. 
91 $ : 
91 7 
91 72 RCV_ERROR: 
91 7 INCC COB_W_RFLCTR(R4) ,W ; Count receive failures 
01 +€1 191A 507 BBC #Rcd_STS V_CRCERR,- : Br if not a CRC error 
06 14 A2 91¢ 507 CXBSO_R_STS(R2),20$ ; 
91F 507 SETBIT #0,CDB_O_RFLMAP(R4) i Indicate CRC error 
02 €1 1925 5077 20S: BBC RCV_STS_V_F - ; Br if not a framing error 
C6 14 A2 927 507 CXB$SO_R STS(R2),40$ : 
92A 07 SETBIT #1,C0B Q_RFLMAP(R4) ; Indicate FRAME error 
0B £1 1930 5080 408: BBC #RCV_STS_V_RUNT,=- ; Br if not a RUNT packet 
06 14 A2 33 0 CxBSQ_R STS(R2),90$ ; 3 
9 0 SETBIT #2,COB_O_RFLMAP(R4) 3 Indicate FRAME error 
05 : 083 90$: RSB 


3+ 
; XMT_ERROR = Process transmit errors 
; Functional description: 


This routine adjusts all appropriate counters and checks all errors. 


: Inputs: 

3 R4 = CDB address 

$ R6 = Transmit ring entry address 
: Outputs: 

: RO = error code 


XMT_ERROR: 
INCC Count send failures 


COB_W_SFLCTR(R4) ,W 
RO Assume No Carrier failure 


MOVW #SSS$_COMMHARD 


50 20C4 8F  B0 
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HDOOGCOGOSOSS COO ODO 000 O@BD@Oowmc 


DDI ES BS NAAN AINA AIA At 


y BBC #XMT~STS_V_ABORT,- : Br if NOT 16 retries faited 
0B 08 A6 XMT_@ STS(R6), 20% 
50 0334 8F B80 #SSS_BEVREQERR, RO : Else, DEVREQERR error 
SETBIT #0,CDB_W_SFLMAP(R4) : Set bitmap : 
oc «CC 20$: MT_STS"V LCAR - ; Br if NOT Loss of Carrier 
0B 08 A6 XMT_@_STS(RS) 408 


eaoriye® 
v04-001 
50 204C BF 
Foe + 
50 bo C 8F 
0B 
06 08 A6 
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XMT_ERROR = Process transmit errors 


BO 
E1 
BO 
E1 


05 


wwowowono 
NAAAO 


ec ee ee ee eed 


wwowowono 


4d 
m 
=_ 
wo 
_ 
— 
= 
7 
a 
@w 


T Qs 
SETBIT 12.008 
RSB 


math 
=SEP=-19 


#SS$ Seg oe HBR 
WLSFLMAP 
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et 
Br i 


Else, DATACHECX error 


Count sepa 
Br if NO 


Se. bitmap 


rate counter 
Carrier failure 
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bi NoT Pcollision check failure 
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youn O0t SUBROUTINES TO FIND. SHR MATCH ON SOURCE rSep-19 4 00:20: 06 DRIVER.BUGSRC )XODRi VER. MAR; “nes rn 
3 ; ! § ae -SBTTL SUBROUTINES TO FIND SHR MATCH ON SOURCE ADDRESS 
13 ; ! ? 3; Functional description: 
1356 ! § ; Subroutine to find SHR data structure for user 
1988 5128 ; Inputs: 
1988 5129 ; Re = Receive CXB address 
1988 5130; RS = UCB address 
oes 131; : 
198B 51 ¢ 3; Outputs: 
ey 4 51 : Ri = Address if SHR data structure if match 
1988 5134 ; ALL other registers preserved. 
1988 5135 ; 7-Bit set then match. 
1988 138 3 Z-Bit clear then no match. 
1988 1; poe 
1988 5138 
198B 5139 MATCH_SRC: ; Try to find shared user 
05 6B 1358 21¢9 PUSHR #*M<RO,R2> ; Save registers 
4 14 2166 3; Try to find match among Limited shared users of protocol type 
50 0098 CS 9E 198D 5144 MOVAB UCBS$Q_XQ_SHARE(R5),RO ; Save address of Listhead 
1 » 1338 5145 MOVL ; Copy Listhead address 
1995 5146 ASSUME SHR_L_QFL EQ 0 
51 61 DO 1995 5147 208: MOVL (R1T,R1 3 Get next in List 
50 51 D1 1998 5148 CMPL =. R'1, RO : Back to start of List? 
06 13 1998 5149 BEQL 30 ; Br if yes - no source match 
13 10 199D 5150 BSBB CHECK_SRC ; Check for match 
FL 12 «#«199F §151 BNEQ 20$ ; Br if none var 
a 1oAt 2126 BRB 50$ ; Return in success (Z-bit is set) 
19A3 2128 ; No match on Limited users - try to use default user 
51 0004 CS DO 1943 5156 40s: MOVL UCBSL_XQ_DEFUSR(R5),R1 ; Get address of default user 
02 13 19A8 5157 BEQL 40$ :; Br if no default user 
50 D4 19AA 5158 CLRL RO ; Return success _ 
50 50 DO 19AC 5159 40$: MOVL RO,RO ; Return success/failure indicator 
05 BA 19AF 5160 50S: POPR #*M<RO,R2> ; Restore registers, don't reset Z-BIT 
05 1981 5161 RSB 
19B2 516? 
1962 5163 ;++ Siete 
19B2 5164 ; Functiona. description: 
1786 e132 3 Ff ‘ 
Vee 2196 3 Subroutine to check if source address in message matches SHR address 
198 2168 3; Inputs: 
198 199 : R1 = Address of SHR 
198 2} 0; R2 = Address of MSG buffer 
198 71 2 
198 He 3; Outputs: 
198 173 ; Z7-Bit set then match. 
198 174; Z7-Bit clear then no match. 
19B 175 :-- 
198 g1c8 ; 
19B2 5177 CHECK_SRC: Check for match with SHR data base 
12 Al 36 A2. 01 1982 5178 CMPL CXB$G_R_SRC(R2) ,SHR_G _DESTER R1) ; Source address match? 
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05 12 1987 5179 BNEQ 10$ ; Br if no - try for next 
42 A2 Bi 1989 2180 CMPW eyes R_SRC+4( is fs 7 3; Really match? 
16 Al 19BC 5181 R_G_BEST+4(R1) : 
05 19BE 5182 10$: RSB ; Return to caller 
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v04-001 COPY_RCV = Copy a receive buffer for the 5=SEP=-1984 00:20:54 [CDRIVER.BUGSRC XQDRIVER.MAR; 1 (46) 
138 2] ¢ ee -SBTTL COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 
ier 1 § :; COPY_RCV = Copy a receive buffer for the PROMISCUOUS user 
ieee 2} ; Functional description: 
19BF 5190 ; This routine allocates a receive buffer in which to copy the a receive 
19BF 5191 ; buffer for the PROMISCUOUS user. 
19BF 2136 3 
19BF 5193 ; Inputs: 
19BF 5194 ; . 
19BF 2132 3 R2 = Receive CXB address 
19BF 5196 ; R4 = CDB address 
19BF 5197 ; R5 = UCB address of PROMISCUOUS user 
19BF 5198 ; R6 = Address of receive ring entry 
19BF 5199 ; 
19BF 2500 3 IPL = FIPL 
19BF 5201 ; 
19BF 2506 ; Outputs: 
19BF 250 3 
19BF Soe : RO,R1,R3 are destroyed. 
\eer 250? : ALC other registers are preserved. 
19BF 5207 COPY_RCV ; Copy the xmit buffer to rcv buffer 
52 DD 198F asee SHL =R2 ; Save address of original buffer 
1¢ A2 01 «Bi = 19C1 5209 CMPW #1,CXBSW_R_NCHAIN(R2) ; Is there more than T in chain? 
76 «#12 #1905 5210 BNEQ 80 ; Br if yes = we can only handle 1 
51 IA A2 3C 1907 5211 MOVZWL CXBS$W_BCNT(R2),R1 ; Get size of buffer 
00000048 ef co 19¢8 §212 ADDL #CXBSC_HEADER,R1 ; Compute size of needed buffer 
QO000000'GF 16 19D2 5213 JSB G*EXESALONONPAGED ; Allocate a receive buffer 
62 50 £9 1908 5214 BLBC RO, 808 ; Br if failure e 
53 6€ DO 19DB 5215 MOVL (SP) ,R3 ; Get address of original buffer 
36 BB 19DE 5216 PUSHR #*M<R1,R2,R4,R5> ; Save registers 
62 63 51 £28 19€0 5217 MOVC3 R1,(R3),(R2) ; Copy everything to new buffer 
36 «6BA O(19E4 «(455218 POPR #*M<R1,R2,R4,R5> ; Save registers 
08 a2 «51—soBe 1966 3219 MOVW = R1, CXBSW_SIZE(R2) ; Reset size field 
19EA ss! :; If there is a pending receive 1/0 request, complete it. 3 
13eA 2558 ; Otherwise, queue the buffer and, if enabled, deliver attention AST. 
51 42 AS =3C «(19EA 4 MOVZWL UCBSW_DEVBUFSIZ(R5),R1_ ; Get the user's buffer size 
53 OOAB DS OF 19€ 5 REMQUE @UCBS$O_XQ_RCVREQ(RSS ,R3 ; Remove waiting IRP 
QA 1D 19F § BVS : Br if none - queue for Later 
oocc ¢5 1 Ad 19F 2 SUBW R1,''CB$W_XQ_QUOTA(RS) , Else, lessen quota so it can be 
19FA 5228 3-. increased on completion 
008D 30 19FA é 9 BSB FINISH_RCV_IO ; And finish the I/ 
mm. Fe ieee 2530 BRB 80$ ; Look for next completion 
;RNGOOO1 19F F -1 ; Check buffer quota and queue if quota okay. 
3RNGOOO1 19F F “§ : 
;RNGOOO1 OOcc CS «651 «= A2sS19FF «= 53 40S: «= SUBW = R'1, UCBS$W_XQ_QUOTA(RS) =; Decrement the quota 
[RNGOOO1 2C 1E 1A06 2 = 24 BGEQU 60$ : Br if we can buffer request 
;RNGOO01 1A06 o- ; : : 
;RNGOOO1 1A06 -6 ; Return buffer te pool if user buffer failure 
3;RNGOOO1 1A06 ot : 
;RNGOOO1 oocc ¢5 «51. AO-—s*1A06~S—sB ADDW R1,UCB$W_XQ_QUOTA(RS) ; Replace quota 
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G000 1A0B—Ss«d“SD INCC  UCB$W_XQ_UBUCTR(RS).wW; 
:RNGOOO1 1415.10 INCC = CDB_ WwW BOC TRCR4) 4 ; 
3RNGOO01 10 A DD AIF .11 50$ PUSHL  CXBSL-LINK(R2) ; 
:RNGOOO1 50 52 00 lage 1g MOVL  R2,R ; 
:KNGOOO1 00000000'GF 16 1A | JSB 6* CORSDRVDEALMEM ; 
3RNGOOO1 52 SEDS 1A2B- iw. 14 POPL Be 3 
:RNGOOO1 f 12 1A : *15 BNEG 50$ ; 
:RNGOOO1 sv YA 16 BRB 80$ ; 
=RNGOOO1 1A "17 
:RNGOOO1 OOA4 DS 62 F 1A 18 60$ INSQUE (R2),9UCB 
~19 FOF 1437 5251 BSBW = FILLA.VLIST™ : 

1099 0 1A3A 3 3 BSBW = POKE_USER ; 
2 8EDO 1A30 5253 808 POPL R2 ; 
05 1040 5254 RSB : 


49 
COPY _RCV = Copy a receive buffer for the 8: “SEP-1984 00:20 
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ls 


Else, no buffer available 
---don't forges _ counter 
— next in chain 

ony the buffer address 
SEA LOCATE the buffer 
Restore next butfer 
Loop if more 
Else, leave 


$Q_xQ _ sheen ; Queue received msg for Later 
Try to fil 


lL the receive list 
Deliver ASTs 


; Restore R 
; Return to caller 
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RO-R3 are destroyed. 
ALL other registers are preserved. 


U IPL$_SYNCH EQ IPL$_xXQ_FIPL 
asec a” Nek ; Finish FAST interface transmit reques* 


1") : ~SBTTL FINISH _XMT_FFI = Finish FAST interface transmit processing 
17) : $ FINISH. XMT_FFI = Finish FAST interface transmit processing 
1A41 5260 ; Functional description: 

1A41 2 oi 2 

1A41 62 ; 

1A41 5263 ; interface. 

1A41 5264 ; 

1A41 5265 ; Inputs: 

1A41 66 ; 

1A41 67; RO = Status of transmit Pacey 
1A41 68 ; RS = transmit CXB addre 

1A41 5269 ; R4 = COB address 

1A41 5270 ; R5 = UCB address 

1A41 5271; 

1A41 5272 ; IPL = FIPL 

1A41 5273; 

1A41 5274 ; Outputs: 

1A41 5275; 

1A41 5276; 

1A41 5277; 

1A41 5278; 

1A41 5279 ; 

1A41 528 

1A41 528 

1A41 528 

1A43 528 

1A48 528 

1A4B 528 

1AGE 528 


AUS WN SO OOBNAULS WN" O OONOUS WOO 


BRERRRRRRRRR ERS 


MroTnonorononorory 


54 DD RG 3 Save R4 
54 0192 CS D0 MOVL UCBSL_XQ_FFI(RS),R4 : Get *rFI block address 
14 B4 16 JSB SFFISC. XMIT_DONE (R4) 3; Call back the user with CXB 
54 aa + ay R4 ; Restore R4 


This routine completes a transmit CXB for a particular user of the fast 
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ved 2 Hy P ~SBTTL FINISH_RCV_FFI = Finish FAST receive processing 
Mt + + FINISH_RCV_FFI = Finish FAST receive processing 
hve§ 35 ; Functional description: 
1AGF 94 ; This routine completes a receive CXB for a particular user of the fast 
1A4F 95 ; interface. 
1AGF 96 ;: 
1AG4F 5297 ; Inputs: 
1AGF 5298 ; 
1AGF 99 ; R2 = receive CXB address 
1AGF 00 ; R4 = CDB address 
1AGF 01 ; R5 = UCB address 
1AGF 2906 5 
1A4F 5303; IPL = FIPL 
1A4F aa0e : 
1A4F 5305 ; Outputs: 
1A4F 5306 ; 
1AGF 5307 ; RO-R3 are destroyed. — 
1AGF 5308 ; ALL other registers are preserveu. 
1A4F 5309 : 
1AGF 5310 ;-- 
1AGF 5311 ASSUME IPL$_SYNCH EQ IPL$_XQ_FIPL _ 
i AGF 23i¢ FINISH_RCV_FFI:: 3; Finish FAST recieve request 
54 DD 1A4F 23) PUSHL R4 3 Save R4 
53 2§ DO 1A51 5314 MOVL. R2,R3 ; Copy CXB address 
3E A 7D 1A54 5315 Move CXB$G_R_SRC(R3),- ; Copy source address 
28 A3 1057 5316 CXB$Q-STATION(RS) : “9 ; 
et | of 0 Age 5317 MOVW #CXBST_R_USERDAT,CXBSW_BOFF(R3) ; Set offset to received data 
1A5SF 5318 ASSUME NMASC_STATE_ON EQ 0 
1A5F 5319 ASSUME NMASC_STATE_OFF EQ 1 ’ : 
09 00DD CS =E8 ##1A5F 5320 BLBS UCB$B_XQ_PAB(RS) ,30$ ; Br if padding is disabled 
AS BO 1A64 5321 MOVW CXBSW_R_SIZE(R3) ,- ; Else, set real size of buffer 
A3 1A67 2355 CXBSW_BENT(R3) : 
AS. 02 AO 1A69 532 ADDW #XQ_C_CNTSIZ,CXB$W_BOFF(R3) ; Adjust offset 
50. 010C C4 D0 1A6D 235¢ 308: MOVL COB L“DEVDEPEND(R4J,RO :; Set controller bits 
44 A5 CB 1A72 5325 BISL §UCBSL_-DEVDEPEND(RS),.RO ; Set status flags 
54 0192 C5 DO 1A76 5326 MOVL UCBSL_XQ_ FFICRS) RS : Get FFI block address 
18 B4 16 1A7B 5327 $B af F ISC_RECV_DONE (R4) ; Call back the user with CXxB 
54 B8EDO 1A7E 2358 POPL R4 _ ; Restore R4 
52 53 DO 1A81 5 $3 MOVL R3,R7 ; Was buffer consumed? 
03 «(13 1AB4 33 0 BEaL §=-«90$ : Br if YES hata Dee 
FOAC 30 1A86 5331 BSBW ADDRCVLIST . Else, add buffer to receive List 
05 1A89 5332 90$: RSB ' 
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we -SBTTL FINISK_RCV_IO = Finish receive I/0 processing 
; FINISH_RCV_IO = Finish receive 1/0 processing 
Functional description: 
This routine completes a receive operation that has been matched with a 


message block. After the receive has been completed the message free List 
is filled and a receive is started if needed. 


Inputs: 
R2 = receive CXB address 
R35 = [/0 packet address 
= CDB address 
R5 = UCB address 
IPL = FIPL 
Outputs: 


R5 is reset to UCB address from IRP 
The request is completed via 1/0 post. 


Tere Tere Tere Tere re rere rererererere rere rete yy 
Pe) 
- 


Finish recieve 1/0 request 


FINISH_RCV_IO0:: : 
MOUL R2, IRP$L_SVAPTE(R3) 3 Save block address 
mMOVQ CXB$G_R_SRC(R2) ,- ; Copy source address for DECnet 
IRP$Q~STATION(RS) Pg rere: 
BBC #IRPS$V_DIAGSUF ,- ; Br if no diagnotic buffer 
IRP$W_STS(R3) , 10$ ; 
VL IRPSL_DIAGBUF (R3) ,R1 : Get diagnostic buffer 
MOVAB RHDR_T_DATA(R1) ,RO ; Assume this is just a read header 
cney #RHOR_C_LENGTH,DIAG_W_SIZECR1) Is this Just a header buffer? 
2 Or yes 
MOVAB DIAG_T_RDATA(R1) ,RO ; Else, must be a diagnostic buffer 
MOVB CXBSB_R_FLAGS(R25,- ; Save diagnostic return info 
COB_B _61AG1(R4) : ees 
MOVW CxBSQ_R_STS(R2),- : eee 
CDB 9_BIAG2(R4 : mba 
5$: PUSHR #*M<R27R5,R4,R5 ; Save registers 


> ve 
MOVC3 #RHDR_C_DATA.CXBST_R_DATA(R2), (RO) ; Move header info 
POPR #*M<R2,R3,R4,R5> . Restore registers 
10$:  MOVAB CxB$T_R_US g).(R2); Set address of received data 
RPSL-X0_DATBUF(R3),4(R2); Set address of user buffer 
x S 5),-  ; Adjust receive buffer quota 
UCBSW-XQ_QUOTA(RS) ; 
MOVZWL CXBS$W-BCAT(R2),R1 ; Find Length of received message 
: Perform accounting on a per protocol type basis. 


CNTR R1,UCBSL_XQ_RBYCTR(RS),L ; Bump the bytes received counter 
INCC UCBSL_XQ"RBCCTR(RS),L ° ; Bump the blocks received counter 


: If padding is enabled, then the size of the data is contained in the 
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; Message as the first word of data. 


OFF EQ 1 
UCB$B-XQ_PAB(R5S), 15$ 
CXBSWIR_SIZE(R2) RO 


#XQ_C_CNTSIZ, (R2) 


; Br if padding is disabled 

; Else, pick up real size of 

; .MSG from the message itself 

; Move pointer past the count field 


; Verify that the 1st word of data at least makes some sense. The byte 
; count for the message must be less than the size of the entire received 


d buffers, then setup IRP$W_STS and don't reset the USER BUFFE 
a LP because chained buffers need to have the USER BUFFER 


RO,R1 : is size field larger than buffer? 
45$ ; Br if yes - | 
; must be strictly Less Than, because 
; the size field is 2 extra bytes. 
RO,R1 ; Else, copy the real buffer size 
S“#SS$_NORMAL, IRP$W_XQ_STATUS(R3) ; Assume success 
R1, IRPSW_BCNT(R3) ; Request larger than user buffer size? 
20$ Br if no - okay 


IRP$W_BCNT(R3),R1 : Else, set size to minimum of two 
#SS$_BATAOVERUN, IRP$W_XQ_STATUS(R3) ; Set return status 


¥SS$_CTRLERR,- 
IRP$Q_XQ_STATUS(R3) 


IRP$W_XQ_STATUS(R3),RO ; Get status 
» Post the I/0 request 
FICLRCVLIST ; Fill up the receive buffers 


; Set data transfer error 


CXBSL_LINK(R2) ; Is this a complex chained buffer? 
30$ ; Br if no - set transfer size 
#IRPS$V_CHAINED,~ ; Br if user cannot accept complex 
IRP$SW_STS(R3) ,45$ ; _chained buffers 
#IRPSM_COMPLX,- ; Else indicate complex 
IRP$W-STS(R35 : chained buffers ? 
; And don't change user buffer size 
R1, 1RP$W_BCNT(R3) ; Set size of transfer 
#16,R1,R0 ; Set buffer size in status 
$ : Br if success 


; Complete an I/0 request packet 


; Abort the 19 request 
; Return aberted status 
; Complete the 1/0 request, check for 


timeout 
Get UCB address 


S$*#SS$_ABORT,RO 


IRPS$L_UCB(R3) ,R5 
UCB$L~XQ_CDB(R5) RI ; Get CDB address : 
#XMSV~STS_TIMO,COB_L_DEVDEPEND(R1),10_DONE ; Br if not a timeout 
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10 - Finish receive 1/0 proce ~3Epa19 

#SS$_TIMEOUT,RO ; 1 Else; return real error code 
e 


nn 135 $306 AX/VMS Macro V04-00 
DRIVER.BUGSRCJXQDRIVER.MAR; "3 


; Complete an I/0 request 
RO, IRP$L_IOST1(R3) : Set status return and size 
: Alternate _— point 
IRPS$L_UCB(R3) ,R5 3; Get UCB a 
UCBSL~ “DEVDEPEND (RS), IRPSL_ Tost (R3): "set other info 
UCBSL-XQ_CDB(R5) ,R1 : “Get ro adie 


D Br DB 
COB_L_DEVDEPEND(R1), rRPSi_ PosToCRay- ; Set controller bits 
.. wn hat already setup 


RS 

UCBSL_XQ_CDB(R5) ,R4 | det ° be address 
#IRPS$V_DIAGBUF ,- : Br if no diagnotic buffer 
IRPSW_ STS(R3), 0s : 

Tres “DIAGBUF (R3), ; Get diagnostic buffer address 


#RHDR-C_LENGTH, diac. We S1ZE (RO) 3 Is this a real diag buffer? 
r if not = no diagnostic info 
: Aedress buffer pas* start time 
GreNe seer RO YSTIME, (RO)+ $ Insert stop time 


COB_L_UCBO(R4) ,R1 ; Get address of UCB 40 

UCBSU ERRCNT(R1), (RO)+ |; Insert error counter 
REG_DOMP ; Dump registers 

: Restore R4 


G*COMSPOST ; Post the I/0 and return 
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1BA1 5473 ~SBTTL ASSEM_PKTS = Assemble receive packets 
1BA1 5474 ; +4 
1BA1 5475 ; ASSEM_PKTS = Assemble receive packets 
1BA1 2678 : 
1BA1 5477 ; Functional description: 
1BA1 5478 ; ; 
1BA1 5479 ; This routine assembles all receive packets into one chain of complex 
;RNGOOO1 1BA1 -1 ; buffers. 
;RNGOOO1 1BA1 “§ 3 
RNGOOO1 1BA1 -3 ; Inputs: 
;RNGOOO1 1BA1 04 
;RNGOOO1 1BA1 2 § R4 = CDB address 
- 1BA1 5486 ; 
1BA1 5487 ; IPL = FIPL 
1BA1 5488 ; 
1BA1 e788 ; Outputs: 
1BA1 5490 ; 
1BA1 5491 ; RO = Status for request _ ; : 
1BA1 2636 3 R2 = Address of first receive buffer in chain 
1BA1 5493 ; R6 = Address of last buffer in receive ring 
1BA1 5494 ; R1,R3 are destroyed. 
1BA1 5495 ; ALC other registers are preserved. 
1BA1 5496 ; 7 
1BA1 5497 ; Implicit Outputs: 
1BA1 5498 ; ; : 
1BAi 5499 ; IRP$V_CHAIN and IRPS$V_COMPLX bits set in IRP$W_STS if the receive 
1BA1 5500 ; buffer is comprised of compiex chained buffers. 
1BA1 5501 ;-- 
1BA1 2306 -ENABL LSB ; 
1BA1 55035 ASSEM_PKTS:: ; Assemble receive packets 
0095 30 1BAl 5504 BSBW NEXTMSG ; Get first message 
;RNGOOO1 68 50 £9 1BA4 a BLBC RO,100$ ; Br if none 
;RNGOOO1 1BA7 on 3 
;RNGOOO1 1BA7 -3 ; Save number of messente in chain in CXB$W_R_NCHAIN and total size of 
erste ieee ¢ ; all messages in CXB$W_BCNT 
;RNGOOO1 1¢ A2. 01 #4BO 1BA7 -6 MOVW #1,CXBSW_R_NCHAIN(R2) ; Compute total number of buffers 
;RNGOOO1 50 OC A2 80 1BAB 4 MOV CXB$W_LENGTH(R2) ,RO ; Get size of message 
;RNGOOO1 OF €1 1BAF 8 BBC #RCV_STS_V_LAST,= ; Br if end of packet 
RNGOOO1 54 14 A2 1BB1 .9 CXBSW_R-STS(R2),40$ ; ..all done with this loop 
;RNGOOO1 1A A2 «BS «(1BB4 10 CLRW CXB$W_BCNT(R2) ; Init total size of buffers so far 
- 52 DD 1BB7 5516 PUSHL R ; Save first receive buffer address 
53. 01) = 9A 1BB9 «(5517 MOVZBL #MAX C_CHAIN,R3 ; Allow mn messages in chain 
06 A6 B80 1BBC 2518 10$: MOVW RCV_@ CEN(R6S,- ; Set size of buffer to maximum per rcv 
OC A 1BBF 551 CXBSQ_LENGTH(R2) ; , 
5 DD 1BC1 5520 PUSHL 3; Save address of current bufr in chain 
007 30 18C3 5521 BSBW NEXTMSG 3; Try for next message ; 
51 8EDO 1BC6 2256 POPL ; Get address of last buffer in chain 
2150 €9 1BC9 225 BLBC RO, 208 ; Toss all messages on error | 
50 of DO 1BCC 5524 MOVL (SP) ,RO ; Get address of first in chain 
10 Al 5 DO 1BCF 5525 MOVL R2,CXBSL_LINK(R1) ; Store address in chain 
OC Al AO 1BD3 5526 ADDW CXB$W_LERGTH(R1),- ; Compute total size of all buffers 
1A AO 1BD6 5527 CXB$Q_BCNT(RO) ; _in chain - so far : » 
1C AO = B6 1808 5528 INCW CXBSW_R_NCHAIN(RO) ; Compute number of msgs in chain 
OF €1 1BDB 5529 BC #RCV_STS_V_LAST,= ; Br if end of packet 
OF 14 Ag 1BDD 33 0 XBSW_R7STS(R25,308 ~—s: 
D9 5 F5 1BEO 5531 SOBGTR R3,10$ ; Loop if more than two in chain 
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youe Our ASSEN PRIS = Ausenble receive packets ~eth= 1382 00:30:58 LORIVER. BUGSRC RODRGVER.MAR: Oo (36) 
Done with loop and LAST bit still not set - toss all messages 
: INCC CDB_W_OVRCTR(R4) ,W ; Count as hardware error 
3 Error 
208: TOSAMSG 
R2,R1 


CXBSB_R_FLA 
CXBSB_R FL 


Www 


Toss all messages 


Ww 
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Save address of last message 

Return first message address in R2 

Save only Last message buffer info 
tm he message of chain 


TH HHH HMM MmmMmMmmrmnrirrirny 


Save size of entire message 
Compute size of Last message 
and store in CXB format 

Return size of complete message 
Return success! 


MOVW RO, CXBSW_BCN 
nOVZBL S*#SS$_NORMA 


; Toss bad messages 


TOSAMSG : POPL 2 ; Restore R2 
TOSSMSG: INCC Up the counter , 
110$: PUSHL Save address of next in chain 
Add buffer to receive List F 
Restore address of next in chain 
Br if more in chain 
Assume failure j 
Br if NOT end of chain 

et rest of message __ 
Else, try for next valid message 
Get next message 
Br if none 
Check if more possible 


120$: 0 

#RCV_STS_V_LAST,- 

RCV~W_STSTR6) , 130$ 
SER _PKTS 

130$: 


See Se Se Se Ge Ge Be Se Ge Se Oe & 
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BRB 
-DSABL 
: Find next message and check ownership 
NEXTMSG:CLRL —RO ; Assume failure 
TSTB COB_B_RCVCNT(R4) ; Any more receives in progress? 


BNEQ 5$ ; Br if yes 
RSB Else, return 


o- 09 

Minnis 
uv = 
ren 


MOVZBL ; Get Last ring entry completed inx 
MOVL ; Get last ring entry address 
6),10$ ; Br if done 
CV ),1$ ; Br if not done 
oO. 1(R6) ; Are we really done? 
; Br if not, leave now 
@CDB_Q_RCVPND(R4) ,R2 ; Get next receive 
0$ ; Br if none available (yet) 
INK(R2 ; Assume not a chained buffer 
-B_LRCVCNT(R4) ; One less receive pending 
B_B_LASTRCV(R4) ; Bump ring pointer 
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S = Assemble receive packets Bonn 1982 0 :20: ‘06 DRIVER. BUGSRCJXQDRIVER.MAR; 1 eo 85) vi 
BICB ewe RCV-1>,- ; Modulo receive ring entr i 
BCASTRCV (Ra) : aT os siren 
CLRBIT mncy “BSC VALID,= 3; Indicate that buffer is not valid 
*ABDRHI (ROS : 


Compute buffer shes 


BICw3 Amy's Vets ep ese en ; Store Length <10:8> 


MOVB = RCV_W ckeneres - : Store Length in CXB <7:0> 


C 

ADDW #XQ_C _ADDRCV-<x0 _HEADER+XQ_ C_CRC>,- ; Add in missed count 
CXBSQ_LENGTH(R2) ~ : 7". tminus header and CRC 

MOVW RCV_W STS(R6),= ; Save status flags in CXB 


CxB$Q_R_ST 
MOVB RCV_W FL RG+3 (RO) 


; Save flags byte (high word) 
EXBSB.RFLAGS(RD) : wid ° 


: Adjust quota and release mapping slot 


TSTB CDB_B_AQUOTA(R4) ; Are we running on extra QUOTA? 
BEQL 30$ : Br if not, replenish quota 
DECB COB_B_AQUOTA(R4) : Else, decrement extra QUOTA 
BRB 40$ : Continue 
308: ADDW ei rt ; Replenish COB quota 
40$: MOVZBL cXB88 RQ_SLOT(R2),R1 ; Get mapping slot number used 
CLRBIT CVMAP(R4) : Clear in use flag 
CPUDISP <f90, 80S>,- 
780,80$>.- 
750,80$>,- 
<730; 80$>,- 
UV2,80$>,- 


<uvI. 100$>> Copy data on MicrovAX I 


80$: 3; ALL but MicroVAX I 


wou cel, S“#SS$_NORMAL ,RO ; Return success! 


For MicroVAX I, ONLY. 


peeereererereererrerees 


BBS #RCV_STS_V rere ; Br if this packet is in error 
CXBSW_R7S (Re) 


80$ 
CMPW ckesu. chnetace ),CDB_W_BSZ(R4) ; Check size of received data 


BGTRU 110$ : Br if bad size 
MOVL pi -L RCV_VA(R4)CR13,R0 : Else, get address of contiguous buffer 
ADDUS C"HEADER,=- ; Add back in the header 
meyeso _LENGTH(R2), R3 3 
; Save registers 


PUSHR woneR 3° R4,R5> 
MOVC3 R3,(ROS,CXBST_R_DATA(R2)'; Move the data 
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v04-001 ASSEM_PKTS = Assemble receive packets “Sere 934 00:20:54 (CORIVER.BUGSRCJXODRIVER.MAR; ;°0 (50) 
;RNGOOO1 34 BA 1CFO .2 POPR #*M<R2,R4,R5> ; Restore registers 
;RNGOOO1 D9 3=6«11—s«1CF2 2 BRB 80$ 3; Continue 
;RNGOOO1 1CF4 § 
;RNGOOO1 05 €0 1CF4 -25 1108: BBS mene He V_SETUP,=- ; Br if this is a SETUP packet 
>RNGOOO1 D3 0246 C4 1CF6 26 B"B sts The) 80S : (no error) 
3RNGOO01 1CFA 27 SETBIT whey er ; Else, indicate error 
>RNGOOO1 1CFA 28 CxeSu. R ~$rS Rd) : and let it get tossed 
-23 CC 11 CFF 5646 BRB 80$ ; Continue 
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NA driver =~JAN-1985 17:49: AX/VMS Macro v04-00 Page 125 xt 
UEST = PROCESS MOP READ COUNT -SEP-1984 00:20: ‘96 DRIVER.BUGSRCJXQDRIVER.MAR; 1 ” tg vi 
S645 oe -SBTTL MOP_CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
Th : MOP_CTR_REQUEST = PROCESS MOP READ COUNTERS REQUEST 
i > FUNCTIONAL DESCRIPTION: 
2028 ; This routine is called to process a remote request to read the LINE counters. 
2028 : Inputs: 
ae : R2 = Address of the received message 
267? $ R4 = CDB address 
660 ; 
5661 ; Outputs: 
2006 3 
5663 ; RO,R1,R2,R3,.R5 are destroyed 
5664 ; R4 is preserved 
5665 ;-- 
5666 
5667 MOP_CTR reeeet ts ; Process a read counters request 
5668 CXBSL LINK(R2) ; Is this @ chained message? 
5669 BNEG 80$ ; Br if yes, return packets 
5670 CMPW #IRPSC_LENGTH- ; Is a receive buffer taree enough? 
5671 +CXB$C" HEADER+3- 
2076 +MOP_CTR_SIZE+8,- 
567 CxB$O_SIZE(R2) 
5674 BGTRU 80% : Br if no, ignore possoge 
5675 MOVL CDB_L_UCBO(R4) ,R5 Get address of UCB #0 
5676 mMOVa CXBSG_ R_SRC(R (R25, *. i cous source node address 
5677 MOV XB$T~R-USERDAT#1( px,t the request ID 
5678 FRPSC “LENGTH+CXBSC SneaobRett 2) ; to the Message block 
5679 BSBW BLO_IRP ; Turn the message block into an IRP 
5680 MOVQ RO, TRP$Q_STATION(R3) : Set the return node address 
5681 MOVL R4, IRP$L a ASTPRM(RS) ; Save the CDB address 
2686 BRB MOP_ CTR_EVILD ; Build the response message 
oe88 : Error = returns packets to receive queue 
5686 80$:  PUSHL CXBSL_LINK(R2) : Save next in chain 
5687 BSBW ADDRCOULIST : Add buffer to receive List 
5688 POPL Re : Restore next buffer 
5689 BNEQ 80$ : Loop if more 
a030 RSB ; Return to caller 
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XQDRIVER = VAX/VMS QNA driver JAN=1985 17:49: AX/VMS Macro v04-00 e 1 
v04-001 MOP_CTR_BUILD = BUILD THE MOP COUNTER RE grant 4 00:20: ‘06 DRIVER.BUGSRCJXQDRIVER.MAR; 1 939 188, 
1 $ eT ig -SBTTL MOP_CTR_BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 
1 ° $32 $ MOP. CTR_BUILD = BUILD THE MOP COUNTER RETURN MESSAGE 
1 ? 637 3; FUNCTIONAL DESCRIPTION: 
1036 635 ; This routine is called to build the return message in response to a 
1036 0 ; MOP read counters request. 
1b36 3702: Input 
3 Inputs: 
1036 57 : 3 
1036 5704 ; R3 = IRP address 
1036 705 ; R4 = CDB addre 
9 oe 3 RS = UCB address of UNIT 0 
1036 5708 : Outputs: 
1036 5709 ; 
1036 5710; R4 = CDB address 
1036 5711; R5 = Ulo address of UNIT 0 
1036 ar 3 
1036 5713; RO,R1 are destroyed 
1036 5714 ;-- 
1036 5715 
1030 2716 MOP_CTR_BUILD: ; Build the MOP counter return msg 
O1F8 8F BB 1036 5718 PUSHR #*M<R3,R4,R5,R6,R7,R8> ; Save registers 
56 54 D0 1D3A 5719 MOVL R4,R : Copy CDB address 
53 010C C3 9E 1D3D 5720 MOVAB IRPSC_ LENGTH+- ; Point to start of message 
1042 5721 CxBSC “HEADER(R3) R3 3 block 
83 OB 90 1D42 5722 MOVB mn CTR_REPLY, (R$) : Set function to rept 
83 B65 1045 5723 TSTW (R3S+ : Skip request ID (filled in earlier) 
57 €426 CF 9E 1047 5724 MOVAB MOPCTRTAS,R7 ; Get address of MOP counters 
58 87 3C 1D4C 5725 20S: MOVZWL (R7)+,R8 ; Get the offset to the counter desired 
19 13 1D4F 27g6 BEQL ; Br if end of table 
58 56 CO 1051 5727 ADDL R6,R8 ; Compute address of the 
67 07 28 EF 1038 5728 EXTZV #0,#7,(R7),R2 ; Get the width field without _ 
63 68 52 28 1059 5729 MOVC3 R2, (RB), (R3) ; Copy the counte 
51 8? 9A 1D5D Pu 0 MOVZBL (RP) + RI : Get the width field again 
E8 51 07 +€1 1060 5731 BBC 7,R1 5208 ; Br if no BITMAP to res urn 
83 FE A8 BO 1064 5? ¢ MOVW <p(nes, ,(R3)+ : Else, ohare the BITMA 
E2 11 + +4 2 ? BRB ; Loop for next Bie 
O1F8 SF BA 109A 279) 30$: POPR #°M<R3,R4,R5,R6,R7,R8> ; Restore registers 
ae BY 9E 1068 5737 MOVAS W*DELETE_BLOCK,IRPSL_PID(R3) ; Set the return address 
00C4 3 9—E 1074 2738 MOVAB IRPSC_LENGTH(R3) ,R2 Get address of CXB 
OA A2. 1B 90 1079 5739 MOVB #DYNSC_CXB CxB$8 “TYPE(R2S.; Make it look like a CXB 
O0SC 8F B80 1D7D 5740 MOV) #MOP pCR si2 8+3,- ; Set size of trenster 
1A A2 1081 741 (x880.B 
1D ; rg ASSUME CIES HEADER EQ CXBST_ i _DATA*XQ_C_HEADER 
- 3A «6BO SOD 74 MOVW #CxB$T_T DATA,- “;"Set offSef to start of data 
. 18 A 1085 744 CXBSW BOFF (Ras 
24 a2 5 DO 1087 5745 MOVL R3,CXB$L_T_IRP(R2) : Save IRP address in CXB 
40 A3. 7D 1088 574 MOVG  IRP$Q “SURITONGRS) : Set STATION in CXB 
28 A2 1D8E 74 CXBS$Q~STATION(R2) 
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/VMS QNA driver g-JANe! 985 17 7:49: ae VAX/VS Macro v04-00 ge 127 xt 
TR_BUILD = BUILD THE MOP COUNTER RE 5=SEP=1 0:20: DRIVER. BUGSRCJXQDRIVER.MAR: ? (52) vi 
01 1D 74 MOVE #XQ_FC_V_XMIT,=- ; Set function request in CxB 
20 Ae 1032 28 B xa~ Func (Re) . 
3 1C A 109 750 OVL IRP$L_UCB(R3) ,R 3; Get the UCB address 
2 SAA 1098 5751 MOVAB CXBS$T~T_DATA(R2),R2 : Set R2 to start of dat 
40 A 1090 f : mova TRPSG_STATION(RSS, - : Set th destination saarens 
0260 8F 1DA0 ez MOVW #nl_CTR_PROTYP,- ; Store the protocol type 
0c Ae 1DA4 £39 XBUF_w_TYPE(R25 
00C4 C 1DA6 57 § INSQUE IRPS$T CENGTHCRS) = : Insert request on request queue 
OOF0 D4 1DAA 575 CDBG XMTREQ+4 (RG) 
£4607 IDA £28 BRW XMT PLT START ; Startup the reply 


woe ye® 
V04-001 
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DRIVER.BUGSRC JXQDRIVER.MAR; 1 
’ -SBTTL REG_DUMP = DEQNA ERROR LOG AND DIAGNOSTICS REGISTER DUMP 
; REG_DUMP = DIAGNOSTICS REGISTER DUMP ROUTINE 


; FUNCTIONAL DESCRIPTION: 


; This routine is used to return the DEQNA error log and diagnostics 
; buffer on error or diagnostic Q10 function. 


; Inputs: 


RO = Address of the buffer @ DIAG_L_EXTRA 
R4 = COB address 
RS = UCB address of the unit 


; Outputs: 


RO,R1 are destroyed 
R4,R5 are preserved 


; Insert number of returned long words 
; Insert Last CSR contents 

; Return error flags info 

; Return extra error info 

; Return hardware physical address 
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XQODRIVER = VAX/VMS QNA driver -JAN-1985 17:49: AX/VMS Macro v04-00 Page 1 
v04-001 RESTART_ROUT = PROCESS EXPIRATION OF WES Bonn 1982 00:30:56 YOPIVER.BUESRC MQDRIVER.MAR; 1 - (54) 
335 798 . -SBTTL RESTART_ROUT = PROFESS EXPIRATION (IF RESTART TIMER 
1DEe 19% : RESTART_ROUT = PROCESS EXPIRATION OF RESTART TIPER 
143: 738 : Functional description: 
1D0CC 1 : This routine is entered when the RESTART delta time has expired. The action 
1DCC ¢ ; is to check if the specified unit has been restarted, if so, then it is 
435 bz ; automatically restarted. 
445 06 : Inputs: 
1DCC 5 : R4 = CDB address 
435 3 : R5 = TQE address (but must be at least as long as an IRP) 
pec 10 : IPL = IPL$_1IMEP 
ieee 2 \§ : Implicit inputs: 
Ipc 3814 : IRPSL_RBOFF(RS) = UCB address for UNIT 
pce $816 : Outputs: 
1DCC «5818 : RO-R3 are destroyed. 
ipee 8820 ENABL LSB 
1DCC 2854 RESTART_ROUT:: ; Process expiration of restart timer 
55 DD 1wCcc 58 § PUSHL RS ; Save 
1DCE 58 ASSUME IRPSL_RBOFF GT TQESC_LENGTH 
52 30 A5_ 9E ies 5824 MOVAB TOESC_LENGTH(RS) ,R2 ; Point to IRP portion of TQE 
55 0098 C2 dO 10D¢ 28s? ; MOVL IRPSL~RBOFF(R2) ,R5 ; Reset RS to UCB address 
1007 38 ; : Turn TQE into an IRP 
53 82 7E 1DD7 5829 ° MOVAQ (R2)+,R3 ; Copy IRP address, skip to size field 
1DDA 5830 ASSUME IRPS$W_SIZE EQ 8 
1DDA 5831 SUME IRPSB_TYPE EQ IRPS$W_SIZE+2 
1DDA 2836 ASSUME IRPSB_RMOD EQ IRPSB_TYPE+1 ; 
52 02 CO 1DDA ADDL #2,R 3; Skip size field 
82 OA B80 1DDD 5834 Vu #OYNSC_IRP,(R2)+ ; Set type to IRP 
1DEO 5835 ASSUME IRPSL_PID €a IRPSB_RMOD+1 
82 1E25'CF 9E 1DE0 2838 OVAB W*RETORN_IRP,(R2)+ ; Set return address form IOPOST 
1DES 5 ASSUME IRP L_AST EQ IRPSL_PID+4 
IDES 33 ASSUME IRPSLTASTPRM EQ IRPSL_AST+4 
82 7C 1DE LRQ (R2)+ Clear AST, ASTPRM 
1DE7? 5840 ASSUME IRPSL_WIND EQ IRPSL_ASTPRM+4 
1DE7 41 ASSUME IRPSL_UCB EQ IRP$L_QGIND+4 
8 04 1DE7 rk: CLRL (R2)+ ; Clear WIND 
82 5 DO 1DE9 4 MOVL RS, (R2)+ » Set UCB address 
1DEC 44 ASSUME IRPSW_FUNC EQ IRPSL ycaed 
1DEC 45 ASSUME IRPS$B_XQ FUNC EQ IRPS$W + paait 
1DEC ‘$ ASSUME IRPSB_EFR EQ IRP$W_FUNT+ 
1DEC 4 SSUME IRPSB_PRI EQ IRPSB EFN+1 
1DEC rk ASSUME IRPS$L_IOSB EQ IRPS$B_PRI+1 
82 0500 8F BO 1DEC 4 OVW #<XQ_FC_V_RESTART@85,(R2)+ ; Set function request 
B4 1DF1 5850 CLRW (Ret ; Clear EFN, PRI 
D4 1DF3 5851 CLRL = (R2)* : Clear 10S8 


XQDRIVER = VAX/VMS QNA driver 5 17:49: AX/VMS Macro y04-00 e 130 
v04-001 RESTART_ROUT = PROCESS EXPIRATION OF RES gous rSep-19 1382 0:20: 96 DRIVER.BUGSRCJXQDRIVER.MAR; 1 (a9 (54) 
1DF 38 ASSUME IRPSW_CHAN *, [pest peeess 
1DF ASSUME IRPSU=STS Fa I WatHAN 
1DF 54 ASSUME IRPS$L PTE Hs Poke S842 
82 7C «=(1DF 55 LRQ (RD) 37 Clear CHAN, STS, SVAPTE 
1DF 36 ASSUME IRPS$W -BOFF EQ IRPSL urls 
1DF7 5 ASSUME IRPS$W" -BCNT EQ as BOF F + 
1DF7 28 ASSUME IRPSWBCNT EQ | pst oC 
1DF7 5 SUME IRPSL_MEDIA EQ TRP Q “BENT +6 
82 7C «1DF7 60 CLRQ (R2)+ a.eee BOFF, BCNT 
82 00 3C «= 1DF9 61 MOVZWL #<XQ_FC_V_INIT@&>, (R2)+ : : Set MEDIA 
82 D4 DFC $6 CLRL (R2)F 3 Clear MEDIA+4 
1DFE $6 5 
1DFE 64 ; RESTART the UNIT 
1DFE $6 3 
343 6 DSBINT UCBSB_FIPL(RS) ; Raise IPL 
4000 8F AA 1E0 86 BICw #UCBSA_XQ_INTERLOCK, : Clear the RESTART interlock 
68 AS 1E09 5868 UCBSW bevs S(R5) 3 
E2 1E€0B 5869 BBSS #ucesd_x NITED,- ; Br if unit already inited 
09 68 AS 1E0D 5870 UCBsy “SEVST TS(R5),10$ 3 
FOA 30 3 5871 BSBW STA ; Start protocol 
08 50—s«éE8® Ha ab7¢ BLBS RO, 80s ; Br if success 
FO8S 30 1€16 5874 BSBW STOP ; Shutdown unit 
55 53 dO 1€19 he 10$: MOVL R3,R5 : Point RS to IRP 
07 10 1€1C 5876 BSBB ss RE TURN_IRP > Return the IRP 
1E1E 5877 30S: ENBINT 3; Re-enable interrupts 
55 8EDO 1€21 5878 POPL R5 ; Restore R5 
05 1624 5879 RSB 3; Return to caller 
1E25 5880 
1E25 5881 RETURN_IRP: 
50 DO AS 9€ 1€25 oeee MOVAB =-TQESC_LENGTH(RS) ,RO ; Get address of start of structure 
00000000'GF 17 1629 588 JMP G*COMSBRVDEALMEM 3; Deallocate the IRP 


XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49:06 VAX/VMS Macro v04-00 Pa 
v04=001 TQE_TIMER = PROCESS EXPIRATION OF TQE TI ets 4 00:30:98 YORIVER.BUGSRC XQDRIVER.MAR; 1 ” 
iE : 5 ra -SBTTL TQE_TIMER = PROCESS EXPIRATION OF TOE TIMER 
if : ; ; TQE_TIMER = PROCESS EXPIRATION OF TOE TIMER 
if : 2 ; Functional description: 
1EeF 91 ; This routine is entered when the TQE delta time has expired. The action is to 
ie : 3 ; check all timer cells and shut down the controller if any have expired. 
1E2F 94 ; Inputs: 
1E2F 5895 ; 
1E2F 38 $ R4 = CDB address 
1E2F 97 ; RS = TQE address 
1E2F 5898 ; 
1E2F 5899 ; IPL = IPLS_TIMER 
1E2F ann $ 
1E2F 5901 ; Outputs: 
1E2F 2an8 ; 
1E2F 5903 ; RO-R3 are destroyed. 
1E2F 5904 ; R4,&5 are preserved 
1E2F 5905 ;-- 
1E2F 5906 -ENABL LSB . 
1E2F 5907 TOE_TIMER:: ; Process expiration of TQE timer 
50 0110 C4 00 leer 5908 MOVL COB_L_UCBO(R4) ,RO ; Get first UCB address 
1E34 5909 DSBINT UCBSB-DIPL(RO) ; Sync access to UCB and CDB 
3;RNGOOO1 138 1 ASSUME CDB_STS_V_INITED £Q 0 - 
;RNGOOO1 28 0246 (4 «£9 «(1638 2 BLBC  CDB~B_STSTR4),STOP_TQE ; Br if NOT inited 
;RNGOOO1 1E40 " 
;RNGOOO1 1E40 4¢ 108: : 
3;RNGOOO1 1640 =, ; Check transmit timeout timer 
;RNGOOO1 1640 =. 14 : 
;RNGOOO1 020A C4 95 1640 = .15 TSTB = CDB_B_TIM_XMT(R4) ; Is the xmit timer going? 
:RNGOOO1 06 13 1644 .16 BEQL 0$ ; Br if not 
3;RNGOOO1 020A C4 97 1€46 17 DECB COB_B_TIM_XMT(R4) ; Timer expired? 
3;RNGOOO01 11 13° 1E4A 18 BEQL TIMOUT ; Br if yes . 
;RNGOOO1 OC €1 1E&4C _.19 20S: BBC #XMSV_STS_BUFFAIL,- ; Br if buffer allocation failures 
-7 07 010C C4 ees 5917 CDB_L-DEVBEPEND(R4) , 308 Z 
1E5 2318 SETIPL CDB_B_FIPL(R4) ; Else, sync access to UCB & CDB 
FSDA 30 1656 5919 BSBW FILCROVLIST ; And try to replenish receive buffers 
1E59 5920 30$: ENBINT ; Restore IPL 
1E5C 5921 
-1 1E5C 5945 
05 1€5C 5946 RSB ; Return to caller 
1E5D epee 
1E5D 94% TIMOUT: PUSHQ R4 » Save R4, RS 
55 50 00 4 594° MOVL RO,RS ; Copy address of UCBO 
26 «610 16635 5950 8SBB DEV_TIMEOUT ; Else, timeout has occurred 
1E65 5951 POPQ RG ; Restore R4, R5 
1E68 2526 
1E08 9535 STOP_TQE: : Stop the TQE ‘ 
0B AS 04 BA 1668 5954 BICB #TQESM REPEAT, TQESB_ROTYPE(RS) ; Stop the timer 
08 BA 1E€6C 5955 BICB #COB_STS_M_TIMER,- ; Indicate that timer is stopped 
0246 C4 1eoe 328 COB TS(R4) 3 , 
04 8A 1671 595 BICB  #DPYSA_NOUNLOAD,- ; OKAY to unload the driver now 
0000000D ‘EF 1E73 828 RRISTAR+OP 3_FLAGS 3 
DF 11 1€78 595 BRB 0$ ; Leave 
1E7A 5960 -DSABL LSB 
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AX/VMS Macro y04-00 


5 


~SBTTL TIMEOUT = TIMEOUT SERVICE ROUTINE 


+ 
: TIMEOUT = TIMEOUT SERVICE ROUTINE 
: Functional description: 


: This routine is entered on device timeout. The action is to 


3; shut the unit down. 


R3,R4 are destroyed. 
R5 is preserved 


: Inputs: 

; RS = UCB ADDRESS 
; IPL = DIPL 
Outputs: 


-ENABL LSB 
TIMEOUT: 
BIcW #UCBSM_TIM!UCBSM_INT, uceiw. eres, ; 
ASSUME UCB$V_XQ_INITED 0 
BLBC UCBS$W ADEVSTS(RS) » 208, 
ASHL Q SOFT V_POWER+16 1.R3 : 
BBS #uCch$v POWER. UCBSW_ Pet ie *10$ ; 
DEV_TIMEOUT:: 
MOVL UCBSL_XQ_CDB(RS5) ,R4 : 
MOVL DB_L_CSR(R4),R3 : 
MOVW #XOQ7CSR_M_RESET,CSR(R3) : 
ASHL Q-SOFT 9 _TIMEQUT+16,41 
SETBIT #XxmMSV_STS_TIMO,CDB_L_DEVD 
10$: OVW #XQ_CSR_M“ERR,RS 3 
PUSHL RS ~ ; 
BSBW  SCHED_FORK 
POPL RS 
208: RSB : 
4 .DSABL LSB 


owerfail 
isable timer 


meout or 


Br if not inited 


Assume powerfail 
Br if powerfail 


3 Hardware device timeout 


Get CDB address 


top the device 
Indicate timeout 
PEND (R4 ) ; Set error status 
Indicate fatal error 
Save UCB address 


: Schedule a fork process 
; Restore UCB address 
Return to caller 
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XQDRIVER = VAX/VMS QNA driver a tpa 5 7:49:06 AX/VMS Macro v04-00 Page 133 XC 
v04=-001 ALLOC_CDB = ALLOCATE THE COB “SEP-1984 00:20:54 (CORIVER.BUGSRCJXQDRIVER.MAR; 1 (57) vi 
1€B3 6 § -SBTTL ALLOC_CDB = ALLOCATE THE CDB 
1EBS 6 p++ 
158 ° 3 3; ALLOC_CDB = ALLOCATE THE CDB 
18 e011 3; Functional deccription: 
1EBS 6 \§ ; This routine allocates and initializes the CDB. 
1EB3 60135 ; 
1EB3 6014 ; Inputs: 
1EB3 6015 ; 
1EB ogis 3 RS = UCB address 
1EB eit ; 
1E83 6 13 3; Outputs: 
1EB3 6019 ; 
158s pt y 3 RO = Status return for request 
1EB3 60 ¢ ; ALL other registers are preserved. 
1EB3 6023 ; 
1EB3 6024 ;-- 
JERS 6025 
1EB3 6026 ALLOC_CDB: ; Allocate a CDB 
3— BB 1€B3 onse PUSHR #*M<R1,R2,R3,R4,R5> ; Save registers 
O2FO 8F 3C 1EB5 6028 MOVZWL #CDB_C_LENGTH,R 3; Get size of CDB allocation 
00000000'GF 16 ‘EBA one? JSB G*EXESALONONPAGED ; Try to allocate COB 
4750 €9 1ECO ops BLBC RO,90$ : Br if error =| 
4 24 a5 00 iE Es O06 MOVL UCB$L_CRB(RS) ,R4 ; Get CRB address 
10 a4 = 552.—i«s«éODsCé*SM EC?) 603 MOVL  R2,CRBS$L_AUXSTRUC(R4) =: Store CDB address 
54 28 AS DO ECB 6034 MOVL UCBS$L_DDB(R5) ,R4 ; Get DDB address 
54 04 AG DO ECF 6035 MOVL DDBSL_UCB(R4) ,R4 ; Get UCBO address 
53 54 DO 1ED3 6036 MOVL R4,R ; Save UCBO address 
;RNGOOO1 00C8 C4 52 D0 1€D6 .-1 10$: MOVL Re, UCBSL_xXQ_ CDB(R4) ; Save CDB address in ucBO 
;RNGOO01 0250 C2 9E 1EDB ¢ MOVAB DB G_HWA(R2) ,- ; Store address of NI device's 
-1 0090 C4 1EDF 603 UCBSL-NI_HWAPTR(R4) ; unigue hardware address 
54 30 A4 00 IEE2 6039 MOVL UCBSL-LIRK(R4) ,R4 ; Position to next UCB 
EE 12 1EE6 6040 BNEQ 10$ ; Continue if more UCBs 
1EEB 6041 
1EE8 oneg 3 ee 
1EE8 6043 ; Initialize CDB 
1EE8 6044 ; : 
1EE8 6045 ; The PADDING MODE and the ECHO MODE of the QNA will default to 
1EE8 6046 ; the enabled (ON) state. 
1EE8 6047 ; 
ieee tink ASSUME NMASC_STATE_ON EQ 0 
1EE 604 
1EE8 6050 PUSHQ R2 ; Save CDB, UCBO address 
00 $s 99 2c ieee 6051 MOVCS #0,(R2),#0,R1,(R2) ; Zero the structure 
48} $036 POPQ R2 ; Restore CDB, UCBO address 
0110 ¢c2 +53 = «00 ire ett MOVL R3,CDB_L_UCBO(R2) ; Save address of UCBO 
1EF9 $836 : Init COB fork block. 
1EF9 6057 ; 
1EF9 6058 ASSUME CDB_L_FQFL EQ 0 
1EF9 6059 ASSUME COB LIFQBL EQ CDB_L_FQFL+4 sy 
82 7C 1EF9 6060 CLRO (R2Y+ 3 Skip Link pointers 
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WN_QNA = SHUTDOWN QNA AND ALL UNIT 


PARAOOOPOOAOAAOOAOOAASO 


-JAN-1985 17:49:06 VAX/VMS Macro Vv04-00 Pa 
Bret 1982 0020556 LORIE. pugsec incDesVER.MARS1 oo 


.SBTTL SHUTDOWN_QNA = SHUTDOWN QNA AND ALL UNITS 
3 SHUTDOWN _QNA = SHUTDOWN QNA AND ALL UNITS 


R3-R5 are preserved. 
RO-R2 are destroyed. 


; Inputs: 

; R4 = CDB address 

: R5 = UCB address of unit 40 
; IPL = FIPL 

: Outputs: 


SHUTDOWN_QNA:: 3; Shutdown QNA 
ASSUME COB_STS_V EQ 0 . 
LBS CDB-B_ Srethey Os ; Br if QNA inited 

68 3; Else, return 
ones 108: PUSHR #*M<R3,R5,R6,R7> ; Save registers 
o838 ; Shutdown QNA and reset controller status 

al MOVL CDB_L_CSR(R4) ,R2 ; Get CSR address 
6103 DSBINT UcBSsE- DIPL(RSS : Raise IPL for master clear 
6104 BISW Q_CSR_M_RESET,CSR(R2) ; Disable device 
6105 BICB # CCB STS_M_ FORK_ PE END! : Reset all but needed bits 
6106 CDB_STS_M_TIMER>,CDB_B_STS(R4) ; 
ay ENBINT ; Return to fork level 
e193 ; Release the receive and transmit buffer map registers 
6111 LRL R7 t slot number 
6112 ASSUME CDB_L_RCVMAP+<4*<MAX_C rivets EQ (9S_i_XMTMAP 

“ll MOVAB CDB-L_RCVMAP(R4) ,R6 ~ Get address of mapping slots 
6114 208: OVL UCBSL-CRB(RS) ,R : Get CRB address 
6115 ASSUME VECSWMAPREG+2 EQ VECSB_ UAREG 
oiis ASSUME VECSB_NUMREG+1 EQ VECS$B"D 
611 MOVL (R6)+7CRBSL_INTD+VECSW_ RAPREG(RSD Se* mapping information 
6118 BLSS 30$ r ifn none allocate 
6119 TSTB cReSL. INTD+VEC$B _DATAPATIURS) Is there a datapath? 
6120 BEQL 25 3 if not = don't eo purge or release 
6121 PURDPR 3 Rea the data path 
61 § RELDPR : Release the data path 
6125 25$: RELMPR : Release the map register 
6124 NEGL #1,-4(R a ; Reset mapping info 
6125 ASSUME MAK_C Vv €Q 8 
6126 308: CLRBIT are Av 5 RCVMAP(R4) Clear mapping slot flag 
i AOBLSS X_C_RCV-1>+<MAX_C _ynt- 1>,R7,20 oop if ae map registers 
6188 ; Release the PCBB map registers 
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C 
7 353:96 
20:54 DRIVER.BUGSRCIJXQDRIVER.MAR; 1 


one 138 
ALL UNIT 45-SEP-1984 00 


Page 


1F64 6130 ; 
DO 1764 6131 MOVL UCBSL_CRB( R3 ; Get CRB address 
1F68 6137 ASSUME VECSW-MAP é EQ vVECSB_ 
1F68 6135 ASSUME VECSB-NUMREG+1 EQ VECSB_DATAPATH 
DO 1F68 6154 MOVL COB " RINGMAP(R4) ,= : setup map info in CRE 
1F6C «6155 gre C_LINTD+VECSW_MAPREG(R3) ; 
13 1Fge 6] 6 BSEQL «=s«S0$ ; Br if none 
D4 =F 61 CLRL CDB_L_RINGMAP(R4) ; No more mapping info 
a 6 3 3 50s RELMPR ; Release the map register 
+4 oi79 ; Deallocate all receive buffers and complete all 1/0 request packets 
9E 1F7A e149 MOVAB CDB.Q QUEUES (R4) ,R6 ; Get address of first queue Listhead 
3C (1F7F 66146 MOVZWL #CDB_C_QUEUES,R7 ; Get number of queues 
OF 1F82 6144 60$: REMQUE @(R6),R3 ; Get next IRP/BUFFER 
1D Fee 6145 VS : Br if none 
91 168 6146 CMPB RP$B_TYPE(R3),S*#DYNSC_IRP ; Is this an IRP? 
13° 1F8C (614 EQL ; Br yes 
91 1FBE 6148 CMPB RPSB_TYPE(R3) ,S*#DYNSC_CXB ; Is this a CXB? 
13° 1F92 6149 BEQL ; Br if yes 
4 + 2139 BUG_CHECK NOBUFPCKT,FATAL ; Else, fatal error 
198 2126 3; IRP 
bs | 6153 ; 
30 1798 6154 70$:  BSBW  ABORT_PKT ; Abort the IRP 
11. #1F9B 6155 BRB 60$ i: Try for more 
1F9D $136 3 
1F9D 6157 : CXB 
1F9D 6158 ; 
1F9D 6159 80S: — SDISPATCH CXB$B_XQ_FUNC(R3), TYPE=B,- 
1F9D 6160 <" 3 function action 
1F9D 6161 
1F9D oi6¢ <XQ_FC_V_XMIT 100$>,- ; XMIT request 
1F9D 616 <XQ7FC"V"RECV 140$>,- ; RECV request 
1F9D 6164 <XQ_FC_V_INIT 100$>,- ; INIT request 
1F9D 6165 <XQ_FC_V_STOP 100$>,- ; STOP request 
1F9D 6166 <XQ_FC_V_CHMODE 100$>,- ; Change mode request 
1F9D 6167 > 
1FBO 6168 : 
1FB0 019? BUG_CHECK NOBUFPCKT,FATAL ; Fatal error = not a valid IRP 
1FB4 6170 
1FB4 6171; 
1FB4 oire 3; CXB - XMIT request 
1FB4 6173; 
1FB4 6174 100$: ASSUME CXBSL_T_IRP €Q CXBSL_T_UCB 
E8 1FB4 6175 BLBS CXBSL_T_IRP(R3),120$ ; Br if not IRP address => FFI user 
DO 1FBB 6176 MOVL CXBSL_T_IRP(R3),R ; Else get IRP address 
00 1FBC 6177 MOVL TRPSL-xd SETUP(R3),RO : Get SETUP mode buffer 
1 1FC1 9178 BEQL 10$ ; Br if not present 
18 FCs 617 JSB G*COMSDRVDEALMEM 3; Else, deallocate buffer 
30 1FC9 6180 1108:  B8SBW ABORT _PKT ; Abort the IRP 
11. «FCC «06181 BRB ; Try for mere 
1FCE 61 ¢ 
1FCE 61 1208: 3 
ieee } : ; This is an FFI user, return CXB buffer 
3c 1FCE 6186 MOVZWL CXBSW_BOFF(R3),R1 : Get offset to start of data 
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BSBW pales PROTYP 
RO, 1408 


LBC 
FUSHL 

MOVL CBSt OFFERS) RG 
EQL $ 

MOVcWL #SS$_ABORT,RO 

JSB af F ISL_XMIT_DONE(R4) 
POPL = R4 

BRB 60$ 


; No more FFI for CXB to complete 


POPL = RG 
RECV request 


MOVL  R3,RO 
JSB G*COMSDRVDEALMEM 
BRB 60$ 


> Loop to next queue 


ADDL #8,R6 
SOBGTR R7.1060$ 


; Cleanup ali 1/0 on all UNITS 


MOVL COB L_UCBO(R4) .RS 

MOVL UCBSL_LINK(RS) RS 
190$ 

BsBW SHUTDOWN 

POPR #*M<R3,R5,R6,R7> 


b R3,R1 
MOVZWL = XBUF _ W TYPE(R1),R1 


2 
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Compute start of Ethernet header 


Get protocol type 
Find the protocol user 
if no UCB, drop tuffer 


ave 
Get FFI block address 

Br if not there, drop buffer 
Set return status 

Complete the XMIT 

Restore R4 

Try for more 


; Restore COB address 


copy CXB buffer address 
Dealler ate the buffer 
Try for more 


Skip to next queue listhead 
Loop if more queues 


Get UNIT #0 UCB address 
Br if none, yet 

Get next unit's address 
Br if none 

Shutdown the UNIT 

Check if more UNIT's 
Restore registers 
Return to caller 


XQDRIVER = VAX/VMS QNA driver “JAN-1985 17:49: AX/VMS Macro v04-00 Page 1 x 
v04-001 SHUTDOWN = SHUT DOWN UNIT re 1982 b0:30:5¢ DRIVER.BUGSRCJXQDRIVER.MAR; 1 — 13, Vv 
-SBTTL SHUTDOWN = SHUT DOWN UNIT 

-SBTTL SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYPE 


SH UTDOWN = SHUT DOWN UNIT 
SHUTDOWN =PROTYP = SHUT DOWN PROTOCOL TYPE 


; Functional description: 
This routine is used to shut down the XO unit as a result of a 


; SETMODE and SHUTDOWN. The action is to abort ail i/o for the unit 
and then to clean up the unit data base. 


Inputs: 
R3 = IRP address (SHUTDOWN_PROTYP entry only) 
RG = COB address 
= UCB address 
IPL = FIPL 
Outputs: 


R3-R5 are preserved 
RO-R2 are destroyed. 


HUTDOWN_PROTYP:: ; Shut down protocol type 
Bac wae ONL ; Br if not online 


0 
BLB 0s : Br if not inited 

BBC yates - Br if not a shared UCB 
UCBSW ~Devers ns), SHUTDOWN ; shutdown entire unit 


: Try to find SHR data structure 


40 ; 
41 ; 
42: 
43: RS 
44 ; 
45 ; 
46 ; 
47 ; 
48 ; 
49 ; 
50 ; 
a4 
53 § 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 


| 
23 
: 
: 
; 
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i 
1 
i 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
04 1 
19 64 AS 
15 68 AS EY 
03 1 
11 68 AS 
E6E1 30 
0 12 
6 0D 
56 i 
0252 
56 BED 
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BSBW MATCH_SHR ; Check PID and CHAN 
ee BNEQ 10$ : Br if NO MATCH, skip it 
$8 : Match found - clear inited bit and clean up all 1/0 on SHR data structure 
68 . PUSHL R6 : Save R6 
§ MOVL R1,R6 3 Fooy SHR addre 
9 BSBW CLEANUP. SHR ; Cleanup the SHR “dete structure 
7 POPL R . Restore R6 
0 10$: RSB ; Return to caller 
74 SHUTDOWN: : ; Shut down unit 
06 «CET 75 BBC #UCBSV_ONLINE,- 
04 64 AS Z 8 uCBSwW STS(R5),5$ ; If BC not online 
4 ASSUME UCBS$V_xQ mires EQ 0 
01 68 AS Fe 4 7 BLBS UCBSu_ DEDSTS(R »,10$ ; Br_ if UCB is inited 
r i 5$: RSB ; It's not time to shut down, yet 
4 3 
4 j : If a power failure occurred, and the protocol has both initialized the FFI 


F 2 
XQDRIVER = VAX/VMS QNA driver “JAN-1985 17:49:06 \VAX/VMS Macro y04-00 P 139 
yOecout SHUTDOWN_PROTYP = SHUT DOWN PROTOCOL TYP meets 1 66:30:58 DRIVER. BUGSRC XODRIVER.MAR: 1) >” 133) 


; interface and ouppt vee an asynchronous error routine, then call back 
3; the protocol at is routine address with a status value indicating that 
; &@ power failure had taken place. 


108: #UCBSV_POWER,- ; Skip notification if power failure 
UCBSW_STS(R5S,208 did not occur . 
RG Save CDB address 

SL_XQ_FFIC(RS) RG ; Retrieve FFI address 

; Nothing to do if there isn't one 

Ch pet Semen CaN) AE ; Retrieve asynch error routine address 
#SS$_POWERFAIL .RO 
aw 


mn 
— 


05 

19 64 AS 

54 90192 3 
52. 1C AG 

? 

50 = 0364 a 
62 

54 


: woth ing to do if there isn't one 

; Indicate that a powerfailure occurred 
; Call back the asynch error routine 

; Restore CDB address 


9-w 9 - Oo 9 
Be Be Be Se Be Se Se Be See 


OOMWOWOYFO 


oo 
m 
a 
w 
bad 


rt a 3-second timer to restart any UNIT needing automatic restart. 
s restart timer only runs if the device was halted due to a fatal error. 


Sta 
Thi 
Note, that the UCB multicast address List is purged, which will nullify 
any 
if 


BDOOOOSTOCO0O0000000O0Md@amccd 


restart operation that may be performed by the GNA driver itself (only 
the user has specified any multicast addresses). 


OOOO OCOOCOOCOOCOooO 
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PEEP A AAA AAA AA AAA A AAA AA AA 
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00C8 8F 208: PUSHR 6 3; Save repisters 
“3 68 + BBC ; Br if this UNIT does not need 


3; automatic restart 
ASSUME NGTH 


ENGTH G $C_L 
MOVZBL #IRPSC_LENGTH+TQESC_LENGTH,R1 ; Get size of IRP/TQE 
JSB G“EXESALONONPAGED : try to allocate a IRP/TQE 
BLBC RO,22$ : Br if failure = too bad 
ASSUME $Q_STATION GT TOESC_LENGTH ; 
BISW #UCBSA_XQ_INTERLOCK,- ~ ; Interlock the RESTART bit 
uCBSw_BEvSTS(RS) ; 


ASSUME TOQESB_TYPE EQ TOESW SIZE+2 

ASSUME TQESB-ROTYPE EQ TOESB TYPE+1 

MOVL #<<DYRSC_TQE@16>!<IRPSC_LENGTH*TQESC_LENGTH>>,- ; Set STRUCTURE 
TOESW SIZE (R2) ; TYPE an 
R5, TOESC_LENGTH+IRPSL_RBOFF(R2) ; Saye UCB address in IRP 
RG ; Save RL, R 
R2,R5 : Copy TQE address 
#RESTART_DELTA,- : Set the delta time 


51 F4 8F 
on 
6 50 


BWormmnew 
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4000 8F 
68 AS 


QOOFOOF4 8F 
08 A 

ooc8 C2. 5 
55 $2 

00 01C9C380 8F 


4 
5 
; 
9 
0 
1 
§ 
4 
5 
; 
) 
0 
1 
5 
“ 
5 
Of 
8 
9 
0 
1 
§ 
& 
5 
6 
? 
8 
9 
0 
1 
§ 
4 
5 
6 
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TQE$Q_DELTA(RS) : 
W*RESTART_ROUT,R3 ; Get address of RESTART routine 
eTagsc SSSNGL,- ; Set the request type 
L_ROPID(RS) 
“TIMER 


TQE 
FORK ; FORK to startup the timer 
RG ; Restore R4, R5 

23$ ; Contine 


CLRBIT #UCBSV_XQ_RESTART,- ; Restart is not possible! 
UCBSW"DEVSTS(RS) 
MOV #INIT_C_QUOTA,UCBSW_XQ_HBQ(RS) ; Reset hardware buffer quota 


53 F098 CF 
01 
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0006 A 
64 9 53 AA D 39 BICW oucesn ut uc $M_POWER! = 
C1 40 UCBSM_TIM,UCBSW_STS(RS) ; Reset device status 
68 AS 11 AA ¢ 4) BICW #UCBSA_XQ_INITED!- ; No longer inited 
CS 6 4g UCBSM-XQ-RUN,UCBSW_DEVSTS(RS) ; ..0r running 
C5 634 CLRBIT #XMSV_STS-ACTIVE,UCBSL_DEVDEPEND(R5) ; Clear active bit 
010¢ ¢4 = 10 Fl cA 6344 BBC #XMSVERR-FATAL,CDB_L_DEVDEPEND(R4),25$ ; Br if not FATAL 
p 6 45 SETBIT #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Else, indicate FATAL 
p ¢f ; Reset UCB multicast address List 
0210 ¢6 55 01 20D rk 258:  CMPL RS,CDB_L_PRMUSER(R4) ; Is this unit the PROMISCUOUS user? 
C 12 20DA 6 29 BNEQ 2 ; Br if not 
0210 C6 04 200C 6351 CLRL CoB , PRMUSER(R4) ; Else, clear the PROMISCUOUS user addr 
90 2060 6 ¢ MOVB @NMASC_STATE_OFF,- ; Don't forget about the CDB 
0247 C4 OE2 6 CDB_B_PRM(R4J 3 _parameter 
9154 30 20€5 6 ee BSBW BLD STOP_IRP ; Build an IRP to RESET hardware mode 
OF £0 2068 6355 278:  8BS  #UCBSV_xG_RESTART.- : Br if this UNIT is restarting 
16 68 AS OFA 6 36 UCBSW_BEVSTS(R5),28$ : don't clear multicast List 
OED 635 PUSHQ RG 3: Save R4, RS 
OOE9 CS 86096 «= 20F0 6 28 CLRB UCBSB_XQ_MULTI (RS) ; No more multicast addresses 
OoEC C5 99 2c Ors 635 MOVCS #0,UCBSG-XQ_MULTI(R5),#0.- ; Zero the structure 
0048 a OFA 6360 #6*MAX_C_MLT,UCBSG_XQ_MULTI(RS) ; 
3 6 $1 POPQ R4 ; Restore R4, RS 
+ ° o7 : Reset CDB multicast address List, Flush all attention ASTs. 
038D 30 21 6365 28S: BSBW ADD_MULTI ; Re-calculate multicast address List 
54 OD 21 $ 6 06 PUSHL R4 3; Save COB address 
57 O0OCO CS 9E 21 6367 30S: MOVAB Ucest XQ_AST(RS) ,R7 ; Get address of AST Listhead 
50 67 9 10D 6 rt: MOVL (R7),RO 3 Anything in list? 
ee 11 $36 BEQL : Br if not 
56 2 AO C 2112 6370 MOVZWL ACBSL_KAST+10(RO) .R6 ; Force channel match 
52 4 ad C 211 oye MOVZWL ACBSL_KAST+#12(RO) ,R2 ; Get process index 
peeeend dO 1\4 6372 MOVL G* SCHSGL_PCBVEC,R4 ; Get PCB address vector address 
54 6442 00 2121 6373 MOVL (R4)CR27,R4 ; Get PCB address 
00000000 ' GF + : ; ? is 238 Cor eer ; Flush AST 
4 8ED0 ! D 6 1 40S: POPL RG ; Restore CDB address 
: é ee : Complete all RCV IRPs for this unit 
130 6380 ° ASSUME UCBSC_XQ_QUEUES-1 £0 3; One queue for shared users 
53 O0A8 05 if ; ° 1 45$: REROUE CBSG_xG_RCVREQ(R5) ,R3 : set in? 
F OFF 30 1 6 § BSBW 1 iui dill : Abort the 1/0 request 
F4 11 : "4 ? : BRB 45$ 3; Get next IRP 
' : 6 § ; Complete all XMIT CXBs for this unit 
53 008005 OF 213¢ 3 8 S0$:  REMQUE @yCBSO_xO_XMTREQ(RS) .RS ; Get CxB 
2c 36°10 | 6 VS $ : Br if none 
143 6390 ASSUME CXBSL_T_IRP EQ CXBSL_T_UCB 
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12 24603 €9 21 § 91 BLBC CXBSL_T_IRP(R3) ,53$ ; Br if IRP address 
54 43 1 3 PUSHL R4 ; Save COB address 
54 give 2 1 ? 9 rave UCBSL_XQ_ FFI(CAS/,RS ; Get FFI block address 
0 C C 21 94 MOVZWL #SS$_ABORT,RO ; Set status return 
14 B 16 21 95 JSB aFFISL_XMIT_DONE(R4)  : Complete Cx 
4 BED 1 38 POPL RG ; Restore COB address 
es 1 } ? 4 Bae 508 ; Get next CxB 
53 ge a3 0 1 6399 53$ MOVL CXBSL_T_IRP(R3) ,R3 ; Get IRP address 
50 0094 p ROVL JRPSL-xG_SETUP(RS) ,RO : Get SETUP mode buffer 
; Br none 
00000000 ' GF 8 1 6 JSB G* COMSDRVDEALMEM ; Else, deallocate the buffer 
F9CC 1 548 BSBw SROeT PRT ; Abort the 1/0 request 
i) oe ; ee BRB 50$ ; Get next CxB 
64 : Deallocate all receive CXBs 
52 00A0 D5 i G0 §5$:  REMQUE @yCBSO_XO_RCVMSG(RS) .R2 ; Get message buffer 
24 =D 64 BVS $ ; Br if none 
42 AS 64 ADDW UCBSW_DEVBUFSIZ(R5),- ; Restore quota 
ooce ¢5 64 UCBSW-XQ_QUOTA(RS) F 


The buffer may be smaller than the normal message size, if this 
is a cloned buffer for the promiscuous user. Therefore, we must 
check to make gure the buffer is large enough to be returned 
the the device's receive buffer pool. 


ADDWS #CXBSC_HEADER+- ; Calculate size of ‘‘normal"’ 
CXBSC_TRAILER,- ; receive buffer 
$0 CDB_W_BSZ(R4) ,RO 3 
08 A CMPW RO, CXBSW_SIZE(R2) ; Can buffer be returned? 
BNEQ :; Br if not, delete buffer instead 
BSBW ADDRCVLIST ; Try to add to receiver list 
50$ ; Loop for more 


3 
ow 
3 
= 


R2,RO : Copy buffer address for deallocation 
JSB G*COMSDRVDEALMEM : Deallocate the buffer 
50$ ; Loop for more 


; Cleanup all SHR structures if fatal error 
BBC #UCBSV_XQ_SHAR ; Br if not a SHARED UCB 


UCBSU BEVSTS(RSS 1008; 
MOVL yCBSi xa DEFUSR(AS) RO Get default SHR structure address 


~P eee 
oO 
oe 


BEQL $ a none 
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r 
; Else, clea the structure 
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BEBE LB MAA A AMI PPEPINPIPP9NPF 0 oe 


00E BSBW CLEANUP SHR 
10 «1 BBC @XMSV_ERR_FATAL,- ; Br if not a fatal error 
03 44 A UCBSL~DEVBEPEND (RS) , 908 
gor ¢ 30 6SBW DELETE SHA ; And delete the structure 
56 099 f D 90$:  MOVL UCBSQ %Q_SHARE(RS),R6 =; Get address of next LIMITED user 
0098 ¢ D1 CRPL R6,UCB$Q7XQ_SHARE(RS) =: End of List? 
4 1 BEQL 1 ; Br if yes, don't restore quota (yet) 
00C 3 ] RLY CL ; Cleanup the 1/0 
1 E C BBC #@XM$V_ERR_FATAL,- ; Br if not a fatal error 
EC 44 A ¢ UcBst DEVBEPEND (RS) , 90 
OF €0 21C BBS #UCBS9_XQ_RESTART,- ; Br if this UNIT is re-starting 
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; returned again 
: Delete the STARTUP IRP for point-to-point mode 


1208: move YCDSL_XO_STIRPCRS) ,RO :% Get the startup IRP address 
BEQL $ 323 Br if none 
CLRL =—« UC BSL_XQ_STIRP(RS) 7% ALL done 
JSB G*COMSDRYDEALMEM 3% Deallocate the IRP 


50 0196 C5 
A 1 

196 C Dd 
00000009"GF 1 


: If there is an FFI block and the SHUT_DONE routine is set, then 
; notify the FFI user that shutdown is now complete. 
{ 


30$:  MOVL VCBSL_X0_FFI(RS) .RO 
a 40$ 


CLRL —« UCBSL_XQ_FFI(RS) 
MO FF ISL SHOT _DONE (RO) .R1 


BEQL 
PUSHL RG 
MOVL RO,R4S 
JSB crf) 
POPL RG 
; Decrement UNIT count on CDB and cleanup CDB if Last unit 
140$:  DdECB c0B B_UNTCNT(R4) One Less unit on CDB 
BNEQ 1508 r 


33 BSBW SHUTDOWN _QNA Mar oe 
$8 150$: POPR PoRCRS RE UR? 
95 


d 
P 
£7 68 A 1 47 UCBSW_DEVSTS(RS) ,90$ 
“Boe9 70 1 4 BSBW DELETE SHR ; Else, delete the structure 
E 1 } 4 : BRB ; Look for more 
: Restore quota 
OF €0 21 100$: Bs CBSV_XQ_RESTART,- ; Br if this UNIT is re-starti 
SA 68 AS 1 i Geobu EVSTS (ns) 1408 nisdpeet os 
50 Jc 3 1 5 MOVZWL UCBSL_XQ_PID(R5) ,RO ; Get PID of last starter 
gf D 6 MOVL  G*SCHSGL“PCBVEC,A1 : Address PCB vector 
50 6140 dO 21 7 VL —- (R1) CROI, RO ; Get PCB of owne 
nD D1 21 34 CMPL = PCBSL_P16(RO),- . : 
0088 : 1 yCBSL-x0_PID(RS) : Still there? 
ig 1 60 BNEQ $ : If NEQ no 
50 80 C p 1 61 MOVL PCBS$L_JIB(RO),RO : Get JIB address 
1 cc C 21 6¢ MOVZWL UCBSW7XQ_QUOTA(RS),R1 =: Convert to Longword 
0ao0 51 CO 21 6 ADDL = R1, JIBSL-BYTCNT (ROS ; Return byte gount quota 
4 ad a. « 1 ADOL R1 Tags ats ; ..and byte Limit quota 
ooce (5 B48 CLRW UCBSW_XG"QUOTA(RS) : Prevent this from being 
D 
0 
0196 C5 
50 0192 ¢5 00 


Get FFI block address 
Br if 


r none 

Cleanup FFI interface 
Get address of routine 
Br if none 

Save CDB address 

cor FFI block address 
Call back FFI user 
Restore CDB address 
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e 
Else, shutdown entire QNA 
Restore registers 
Return to caller 
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14 «13 
0196 CS 4 
51 20Aa0 0D 
A 1 
4 oD 
54 ? dO 
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set 


OE 010C f 
51. 00C4 BF 
rn a 
1 50 

08 A2 = §1 
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-SBTTL BLD_STOP_IRP = Build an IRP to reset promiscuous mode 
"BLD. STOP_IRP = Build an IRP to reset the promiscuous mode 


: ; Functional description: 


: this routine will allocate and build an IRP to reset the hardware mode 


from promiscous. 


; Inputs: 
RG = 


= COB address 
R5 = uC 


B address 


; Outputs: 
RO,R1,R2,R3 are destroyed. 


BLD STOP_IRP: 


RBS ouney LERR_FA : 
Bat “DEVBEPEND (RA). 10$ : 
MOVZWL vine tt. H,R1 ; 
JSB GAEAESKLONONPAGED : 
BLBS 3 
10$: RSB Py 
208: mOVW R1, 1RPSW_SIZE(R2) : 
BSBB a 
MOVAB oe L ere. BLOCK. IAPS. PIDiR ) 
BSBW SETUP. 3 
Aove at: ; 
CxBS8 Ro7 FUNC {R2) : 
RSB 3 
708: MOVL R3,R0 3 
BRB 90$ 3 
DELETE_BLOCK 3 
RS,RO 3 
90$:  JMP G*COMSDRVDEALMEM : 
-DSABL LSB 


-ENABL LSB 


; Build an IRP to reset hardware mode 


; NOTE = we must use EXESALONONPAGED to allocate the IRP because the other 
routines reset the IPL to ASTDEL. 


Br if fatal error, 
ignore reset of mode 

Set length of IRP 

Try to allocate an IRP 

Okay if buffer allocat ed 


; Else, too bad if we can't do it 
: a ite in the size field 


a template IRP 
ace return address from IOPOST 
Allocate setup rode buffer 
Leave on error 
Set function regusst. 
looks like a 
Return to queve request to DEQNA 


Copy IRP address 
Deo Locate IRP 


Deallocate a data structure 
Get address of structure 
Deallocate the structure 


set 
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-SBYTL BLD_STRT_IRP = Build a point-to-point startup IRP 


+ BLD. STRT_IRP = Build @ point-to-point startup IRP 
> Functional description: 


This routine will build an IRP to perform a datalink startup with a 
remote system. 


Inputs: 


R2 = IRP address 

R4 = COB address 

RS = UCB address 
Outputs: 


RO,R1,R2,R3 are destroyed. 
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river 
an IRP routine 


-SBTTL BLD_IRP = Build an IRP routine 
"BLD. IRP = Build an IRP routine 
> Functional description: 


This routine will build a 
; function requested and then queue it to the 


vw = 


simple IRP and allow the caller to fill in the 
DEQNA. 


= IRP address 
= UCB address 
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ns = IRP address 
are destroyed. 
are preserved. 
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P 
; Save IRP address, skip to size field 
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p SIZE 
Make it look Like an IRP 


SIN NNN 


oS P@owo 


© nese ais i Fleer PID, AST 

D0 IRPSL SST RMSG 

EQ IRPSL_WIND+ of 

UNC Ea 1RPSL ucaed 
RPSW_FUN 


Clear ASTPRM, WIND 
Store UCB address 


RS telat Stt 3 


Q IRP$B_PRI+1 
; Clear FUNC, EFN, 
Q IRPSL_I0SB+4 


eS cee 


; Clear CHAN, STS, 
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; Return to caller 
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river §-100- 1387 17: 
LEANUP ALL 1/0 ON SHARE D 5-SEP-1984 00: 


-SBTTL CLEANUP_SHR = C 
-SBTTL DELETE_SHR = DE 


349 
; CLEANUP_SHR = CLEANUP ALL I/0 ON SHARE DATA STRUCTURE 


This routine aborts 
buffers back to the 


= CDP address 


IPL = FIPL 


RO-R2 are destroyed. 
ALL other registers are preserved. 


CLEANUP_SHR: : 
PUSHL 


: ASSUME SHR_C_QUEUES EQ 2 

: Complete all IRPs for this structure 
REMQUE @SHR_Q_RCVREQ(R6) ,R3 
B3y ABORT _PRT 


; Deallocate all message blocks 
REMQUE B50R_@_RCVASG(RG) Re 
BVS $ 
UCBSW_DEVBUFSIZ(R5),- 
ucBs@ xa 


IPL = FIPL 


49: 
2 
L 
) 


all read request in progress and return all message 
COB structure for re-use. 


. 
. 


see 
; DELETE_SHR = DELETE SHARE DATA STRUCTURE 
: This routine deallocates the SHR data structure to system pool. 
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ON atone DATA STRUCTURE 


all 1/0 om SHR structure 


3 | og geen buffer 
Restore quota 
Try to add to receiver List 


Return to caller 


2 
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v04-001 DELETE_SHR = DELETE SHR DATA STRUCTURE mets 4 00:20:54 DRIVER.BUGSRCIJXQDRIVER.MAR; 1 (63) 
AD 6 ; Outputs: 
AD 6 $3 
AD ? 3 3 RO-R1 are destroyed. 
. oc¢8 ; ALL other registers are preserved. 
AD 6731 BEL LETE_SHR:: ; Delete SHR data structure 
5C AS” 87 AD 6 § DECW UCBSW_REFC(RS) 3; One Less user of the unit 
00c6 ¢S)_ 56—S—«=OS~Y BO 6 CMPL R8 UCBSL_XQ_DEFUSR(RS) ; Is thi : the default user? 
Ig 13 2285 6734 BEQL «6=_-«-30$ : Br if y 
51 0098 C 4 3 B? 6735 MOVAB UCBS$Q_XQ_SHARE(RS),R1 ; Get address of SHARE queue 
50 61 OD BC 6 $ MOVL (R1),RO 3; Get address of next in queue 
51 50 D1 2eBF 6737 10S: CMPL RO ri : Back to front of List 
4D 13 22C2 6738 BEQL §«=s«90$ : Br if none found 
50 56 D1 C4 6739 CMPL 88 RO 3; Is this she one? 
05 13 22C7 6740 BEQL «6-208 : Br if yes 
50 60 00 C9 6741 MOVL (RO) ,RO ; Else, get next in queue 
Fl 11 cc 6 g BRE 10$ 3; And try for match 
50 60 OF CE 6743 208: REMQUE (RO),RO ; Remove structure from List 
06 ~=«171 Di 6744 BRB 40$ 3; And delete the structure 
00c4 C5 Be D3 6745 30$: CLRL UCBSL_xaQ DEFUSRERS) 3; No more default user 
0 OC A6 C D? 6746 408: MOVZWL SHR_L-PIB(R6 ; Get PID SHR structure 
00000000" GF ny) DB 6747 MOVL 6" SCHSGL vpcavec R1 : Address PCB vector 
50 6140 00 E2 6748 MOVL (R1)CROJ,RO ; Get PCB of owner 
60 AO D1 2266 6749 CMPL = PCBSL_P1D(RO),- 
OC A6 E9 6750 SHR_L “PID(R6) 3s Still the 
1B 12 22EB 6751 BNEQ 608" : If NEQ n 
5C 0080 CO 00 § ED o736 MOVL PCBSL_JIB(RO),RO ; Get 18 edérees 
51 28 A6 3C 22F2 675 MOVZWL SHR_W-QUOTA(R6) ,R1 : Convert to longword 
20 a0 (51 =O § F6 6754 ADDL R1,J16$L_BYTCNT(RO) ; Return byte count quota 
24 A0 51 C0 FA 6755 ADDL R1,JIBSL_BYTLM(RO) ; .-and byte Limit quota 
oocc cS) «—51—s A sere 6756 SUBW R1,UCBSW_XQ_QUOTA(RS) 3; Decrease the current quota 
0190 cS 651 = A2 03 6757 SUBW R) UCBSu. XQ-TOTQUO(RS) ; and the total quota 
50 56 00 Se0e 6758 60$: MOVL R6,R ; Copy SHR etoustare address 
00000000'GF 17 2308 6759 JMP G*COMSDRVDEALMEM : Deallocate the structure 
2311 6761 : 
2311 or eg : Bug check on error 
2311 676 
$311 6764 90S: BUG_CHECK NOBUFPCKT, FATAL 


a 


XQDRIVER = VAX/VMS QNA 
vou=004 


3 
j -JAN=- 7:49: - 
CANCEL = CANCE "TO. § JAN-1985 49 96 AX/VMS Macro v04-00 Page 


148 
ON UNIT “SEP-1934 00:20: DRIVER.BUGSRCIJXQDRIVER.MAR; 1 (64) 


d 
L 
1 $766 -SBTTL CANCEL = CANCEL I/0 ON UNIT 
15 6767 ;+4+ 
} ore 3; CANCEL = CANCEL 1/0 ON UNIT 
! 6770 ; Functional description: 
13 errs ; This routine is used to cancel specific or all 1/0 pending on an XQ unit. 
15 6774 : Inputs: 
12 6775 ; ’ 
15 6776; R2 = Channel index number 
1 6777 ;: R4 = PCB address (or zero) 
15 6778 ; R5 = UCB address 
313 ort 5 R8 = Cancel reason code (CANSC_DASSGN or CANSC_CANCEL) 
15 6781 ; 
15 ores ; IPL = FIPL 
15 6783 ; 
15 6784 ; Outputs: 
2315 6785 ; 
2315 6786 ; R3-R5 are preserved. 
2315 6787 ; RO-R2 are destroyed. 
2315 6788 ; 
$ai2 6789 ;-- 
15 6790 
2315 6791 CANCEL:: ; Cancel 1/0 
00D8 8F BB 2315 O76 PUSHR #*M<R3,R4,R6,R7> ; Save registers 
0 E1 2319 679 BBC #UCBS$V_XQ_ SHARE ,- ; Br if not a shared UCB 
17 68 A5 e318 6794 UCBSWIDEUSTS(R5),2$ =: perform regular $CANCEL 
Saif of 38 3; Try to find SHR data structure 
0136 «§=630 a3 6798 BSBW FIND_SHR 3; Check PID and CHAN 
a ta $351 144 BNEC 2$ ; Br if NO MATCH, maybe Last SDASSGN 
$353 6801 ; Match found - clear inited bit and clean up all 1/0 om SHR data 
333 et 3 structure. 
$3 6804 ; We will Delete the SHR structure if this is a SDASSGN function 
2323 6805 ; request. We will get this function when called from SYSSDASSGN 
23 6806 ; system service and so we will have to delete the SHR structure 
3 6807 ; and decrement the reference count. Note that the reference count 
3 6808 ; can never reach zero. Therefore, SYSSDASSGN will decrement the 
; 6809 ; reference count on exit and we wilt be called opetn, This time 
6810 ; there will be no match on the PID/CHAN and so the UCB will be 
° 4} : cleaned up and deleted. 
56 51 00 6 8 MOVL R1,R6 : Copy SHR address 
:RNGOOO1 54 00C8 C5 20 6,1 MOVL  UCBSL_XQ_CDB(RS),R4 : Get CDB address 
-2 FF5D 0 6 1 BSBW CLEANOP_SHR ; Cleanup the SHR data structure 
—E 6 18 ASSUME CANSC_DASSGN EQ 1 
3 D7 681 DECL R8 ; Deassign request? 
3 3 6820 BNEQ 10$ : Br if no = all done 
rF78 5 6821 BSBW DELETE_SHR ; Else, delete the SHR data stucture 
: ? ¢ 3 An Mee perform Like a NON-SHARED 
3; unit. 
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; Non-shared unit = perform SCANCEL function. 


2s: TSTW yCBSW_REFC(RS) ; Last reference? 
BNEQ % : Br if no = do selective cancel 
3$: MOVL UCBSL_XQ_CDB(R5) ,R4 i Get CDB address 
BSBW SHUTDOWN 3; Shutdown entire unit 
ASSUME CDB_STS_V yg Ad EQ 0 
BLBS CDOB-B_STSTR4) ,5$ ; Br if QNA is still inited 
MNEGL #1,CDB_G_PHA(R4) ; Reset physical address 
MNEGW  #1,CDB_G~PHA+4(R4) : van 
3 When this is the Last reference to the unit, reset the CPID of the UCB. 
Ss: BISW § S*#UCBSM_ONLINE,- ; Set the UNIT to ONLINE 
UCBSW_STS(R5) : 
TSTL UCBSL_XQ_CPID(R5) ; Did we save the Creator PID? 
BEQL ; Br not 
MOVL UCBSL_XQ_CPID(R5) ,UCBSL_CPID(RS) ; Else, restore Creator PID 
CLRL UCBSL_xXQ_CPID(R5) ; Never again!! 
10$: ree #*M<R3,RZ,R6,R7> ; Restore registers 
: Abort all associated receive packets on UCB queue 
20$:  MOVL 4(SP),R4 ; Restere PCB address to R4 
BBC witty - ; Br if not online 
UCBSW-STS(R55,10$ ; 
ASSUME UCBSV_xXQ_INITED EQ 0 
BLBC UCBSW_DEVSTS(RS) ,10$ ; Br if not inited 
MOVAB UCBSQ_ XQ_RCVREQ(RS),.R6 ; Get address of receive queue 


BSBB CHECKER ; Check packets on queue 
; Abort all xmit requests on CDB queue 


OVL UCBSL_XQ@_CDB(R5),R7 ; Get CDB address 
ASSUME CDB_STS_V_INITED EQ 0 
LBC COB“ B_STSTR7) ,10$ ; Br if not inited 
DSBINT UCBSB-DIPL(RSS ; Sync access to CDB 
OVA CDB_Q QUEUVES(R7) ,R7 ; Get start of queues 
MOVZBL #COB_C_ABORTS,R8 : Get number of queues we can abort on 
30$: MOVL R7, RB : Set address of next queue 
BSBB «CX CHECKER ; Check CXBs on this queue 
ADOL #8,R ; Skip to next queue 
SOBGTR R8,30$ 3 Loop thru queues 
ENBINT 3; Enable interrupts 
RB 10$ 3; Exit from cancel 
; Subroutine to scan queue for match on all packets 
CHECKER: 
MOVL (R6) ,R3 : Get next entry 
10$:  CMPL R3,R6 : End of List? 
BEQL ; Br if yes E 
BSBB CHECKPKT ; Cancel if appropriate match 


[ 
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yOeeOOr CANCEL = CANCEL 1/0 ON UNIT Bryn 1382 §5:33:98 YORIVER. BUGSRC IxaD IVE 
; Br if no match 
0 12 1 1 BNEQ 20 ete ies 
” ms % 3 : Sseuee CRS) a5 : Con lete be Fn request 
; Loo 
coi Ses Gi bee’ Faecaee i took for ao 
PA °¢ Be é "BRB 10$ ° : Look for more 
05 e5 5 308: RSB 3; Return to calle 
2 g § : Subroutine to check for specific cancel 
C1 6890 ; 
C1 6891 CHECKPKT: ! eas 
) 3; Is this an Interna 
Oy 88 StL 8888 Biss fgg tOCRS : er if yen 
06 12 cB o83e BNEQ 10$ : 
: id PCB? 
3 03 fA ess? BNER RSs : yatid yes, no match 
11 11 ace rth BRB 40$ ; Else, test 
(R3) ; PID match? 
OC AS 60 AG COD och 6900 10$ cok ea ee ee, Pee ~y A A 
of if 33 6302 BRB 40$ : Try CHAN match 
; : ‘ 
68 a D1 e $904 308: CMPL PCBSL_PID(R4) ,UCBSL_XQ_PID(RS) ; IS this the starter'’s PID? 
wane ; Br if no 
04 12 2300 6905 BNEQ 50$ 3 4 a 
DF 6906 403: CMPW R2, 1RP$W_CHAN(R3) : 
 ™ BS a3 $38 50$: RSB ; Return to caller 
E4 6909 CXB_CHECKER: + oe tak weaken 
35 sf 0 34 ea 108: CRPt asnee : End of list? 
Ha 13 aA $3) BSBA ite CHECKPKT : cancel” if aporepr tate match 
= : no matc 
53 5 bf f rears OE RGUE (R3),R3 : ones from CXB List 
16 24 a3. E8 f ea Bree EXBSLCTTINP (RAD 168” Br if not i address -> FAST interface 
*.4e 4 " e a 
50 im? ¢ as $319 MOVE Pree ha ee TUPcae) -RO ; Get ad ress of SETUP mode buffer 
raat ; one 
or i 2 $339 Oca GT COMSDRVDEALMEN : Else deal lecete the buffer 
or +5 d $353 13$: BSBW ABORT _PKT 3 Complete the 1/0 request 
"oP i t e3 : "BRB CXB_CRECKER Look tor more 
$ DO Bp a. me Ue : G t FFI block address 
” 95% $2 Be tts 8958 MOV IUL hitte t re : Set status return 
' § Sis 88 3 JSB @FFISL_XMIT_DONE(R4)  : Complete the XMIT CxB 
16 Oe sen tia 68 POP R4 e ‘ij ; Restore R4 
¢ SED tin 88 $ Rae CXB_CHECKER ; Look for more 
3 tip 88 : BOUL cReY RS : Travel Link 
" e i 135 3 ? = BRB 10$ ° : Look for more 
05 26 ¢ Fs § 308: RSB ; Return to ca 
; e3 : ; Subroutine to check for specific cancel 
4 936 CxXB_CHECKPKT: 


& 3 
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50 24603 00 24 8 7 VL CXBSL_T_IRP(R3) RO ; Get (presumed) IRP address 
4 9 8 ASSUME CXBSL_T_IRP EQ CXBSL -TUCB 
3 50 eS 4 69 LBS RO ; Br if not an IRP address 
CAO 0S 260C 6940 TSTL RPSL_PID(RO) ; Is hiss an Internal IRP? 
11 13 42F 6941 BLSS 0$ : Br 
06 1 r ok BNEQ 0$ 3; Br if yalid PID 
54 DS 246 $307 TSTL RG 3; Valid PCB? 
17 12 26 6945 BNEQ 50$ ; Br if yes, no match 
11 11 r 5 2308 BRB 40$ 3; Else, test CHAN 
OC AO 60 AG D1 439 oae8 10$: CMPL Ecest. PID(R4) , IRPSL -PID(RO) ; ; PID ano 
OF 12 24 94 BNEQ 5 : Br if n 
08 11 ri e320 BRB 40$ 3: Try CHAN match 
0088 ae D1 re 6952 30$: CMPL PCBSL_PID(R4) ,UCBSL_XQ_PID(RS) ; IS this the starter's PID? 
04 12 2648 6953 BNEQ 508 ; Br if no 
28 AO «(52 ) «6Bl O44A «6954 40S: CMPW R2, IRP$W_CHAN(RO) ; Channel match? 
05 264E 6955 50S: RSB 3; Return to caller 
44F $238 
44F 695 3 No IRP with CXB - FFI user 
44F 6958 
54 dS 44F 6959 80$ TSTL RG 3; No PCB? 
F 13° 2651 6960 BEQL 50$ ; Br if true - abort 1/0 
- 3 DO 2453 6961 MOVL R3,R3 3; Else, return 2-BIT clear 
05 +28 o30 RSB ; Return to caller 
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YOenour SUBROUTINES TO FIND SHR DATA STRUCTURE G g- N= 1382 6; :20: ‘09 DRIVER.BUGSRCJXQDRIVER.MAR; 1 ° (65) 
: g Ps 5 -SBTTL. SUBROUTINES TO FIND SHR DATA STRUCTURE GIVEN PCB AND CHAN 
3+ 
? 4 2 $ ; Subroutine to find SHR data structure for user 
457 69 § : Inputs: 
457 69 9 3 R2 = Channel number 
457 6971; R4 = PCB address (or zero) 
: f e378 3 RS = UCB address 
457 6974 ; Outputs: ’ 
457 6975 ; Ri = Address if SHR data st-ucture if match 
4 f 9376 3 RO is destroyed. 
4 77; Z7-Bit set then match. 
$38 0378 3 Z7-Bit clear then no match. 
457 6980 © 
re $9 : FIND_SHR: ; Try to find shared user 
51 00C6 CS D 457 69 MOVL UCBSL_XQ_DEFUSR(R5),R1 ; Get address of default user 
06 «#1 45C 69 BEQL 10$ ; Br if no default user 
ey 45—E 6984 BSBB 90$ 3; Check for patch 
19 #1 460 6985 BEQL 40$ 3; Br if match 
50 0098 2 4 462 69 $ 108: MOVAB UCBS$Q_XQ_SHARE(R5),RO ; Save address of Listhead 
51 0 oO 467 69 MOVL RO,R1 3; Copy Listhead address 
46A 6988 ASSUME SHR_L_QFL EQ 0 
51 61 DO 246A 6989 208: OVL (R1J,R1 ; Get next in List 
50 «651 =D. 246D «6990 CMPL =e R'1, RO : Back to start + list? 
06 13 2470 6991 BEQL 30$ ; Br if yes - no pid/chan match 
08 10 2472 $395 BSBB 90$ ; Check for match 
F4 12 2474 699 BNEQ 20$ ; Br if none 
03. =o rh 699 BRB 40$ ; Return in success 
50 50 00 2478 6995 30$: MOVL RO,RO 3; Return match failure 
05 age $22 40$: RSB 
47C 6998 ;+ 
ri 4s +44 ; Subroutine to check if PID and SHR data base match up 
47C 7001 : Inputs 
247C p08 3 . R1 = SHR address 
47C 7003; R2 = Channel number 
47C 7004 ; R4 = PCB address (or zero) 
SFE TBE outputs: 
3; Outpu 
47C 7007 ; ¥ Z7-Bit set then match. 
ee 88 : 2-Bit clear then no match. 
tt: 5 19 90$: : Check for match with SHR data base 
54 D5 247C 701 TSTL : Valid PCB address? 
07 .~«1 47E 701 BNEQ 100$ ; Br if yes 
OC Al OD 4 7014 TSTL SHR_L_PID(R1) ; Zero PID? 
0 12 24 7015 BNEQ 1408 ~ : Br if not 
OF 11 26 701 BRB 1108 Try for CHAN 
OC Al 60A4 D1 24 7 9 100$:  CMPL PCBSL_PID(R4) ,SHR_L Picky” PIDs match? 
4 As 48C 7 18 BNEQ 14 "if no - 7, for next 
10 Al 2 8 4 3 7019 110$: CMP R2,SHR_W_CHAN(R1) : Channels matc 
5 24 7020 140$: RSB : Return to caller 
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yOeeO0T FIND -POINT_UCB = Find the point to poin g: “SEP-1 198, 00: ‘38: 6 DRIVER.BUGSRC JXOQDRIVER.MAR; 1 gage (66) 
2 ¢, a -SBTTL FIND_POINT_UCB = Find the point to point UCB 
i 23 FIND_POINT_UCB = Find the point-to-point UCB 
49 $ ; Functional description: 
493 7 8 : This routine is called to find the pore UCB for some received 
33 3 ; message. This is only needed when the protocol is in the startup state. 
$3 1 : Inputs: 
493 7 § ; R1 = Protocol type (startup) 
493 7034 ; R2 = MSG buffer address 
493 7035 ; R4 = CDB address 
193 FoR? 
49 , : ; IPL = FIPL 
rh 4 pee : Outputs: 
49 74g : RO = Status return for request 
49 re : ALL other registers are preserved 
493 7044 ;-- 
;RNGOO01 493 -2 
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Functional description: 


Inputs: 
RS = UCB address 


IPL = FIPL 
Outputs: 
RO = Status return for request 
R1,R2 are destroye 
ASR are preserved 


Implicit outputs: 


PUSHR #°M <R3,R4,RE_R 
MO UCBSL_ xa engine}. R4 
CLRB C08. 8 “MLTTBL(R4) 


MOVCS #0,CDB_G_MLTTBL(R4) #0, ss 


r = JAN=*985 

ALL THE MULTICAST ADD B81 984 00: 36: 8 
-SBTTL ADD_MULTI = ADD UP ALL THE MULTICAST ADDRESSES 

ADD MULTI = ADD UP ALL THE MULTICAST ADDRESSES 


This routine is called to +p og A all the per protocol t 
addresses into a single List in the CDB. s f 


If the 
addresses is jreater than the ONA can manage, then an error is returned. 
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COB_B_MLTTBL = Number of multicast addresses in CDB_G_MLTTBL 
CDB_G_MLTTBL = New multicast address List 


; Add up all the multicast addresses 
; Save registers 


Get CDB address 


#6*MAX_C_MLT,CDB_G_MLTTBL(R4) ; 


POPQ R4 
MOVZBL #MAX_C_MLT+1,R3 


MNEGL #1,RO 
VAB COB G_MLTTBL(R4) ,R6 
MOVL UCBSL“DDB(RS).R7 
MOVL § DDBSL-UCB(R7).R7 
10S: MOVL YCBSL-LINK (R75 .R7 
BEQL 
ASSUME UCBSV_XQ INITED £0 0 
BLBC UCBSU-DEUSTS (RS) Fes 
UCBSG_NG_MULTI (RP) .R2 
MOVZBL UCB$B-XQ"MULTI(R7).R 
208:  TSTL  (R2) 
BNEO 5 
TST (R2) 
BEQL gs 
25$ DEC SOR 


Restore CDB and UCB addresses 


Error if 1 more multicast address 


; Reset number of entries 
Save (DB and UCB addresses 
Zero the structure 


than we can handle 
Assume succe 


ss 
Get address . A eteaes table 
DB addre 

st UCB saareee 
get next UCB in List 


Get 
Get 


r if no more UCB's 


Br if not inited 
ae address of Multicast List 
paerecess for UCB 


is ie unused 


Really? 


Yes - 


skip 


One less &. Lable slot in COB 


e multicast 
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Br if none left - error 
Else, insert next address 


Count one more in List 
Is there enough room? 


Br if no - error 

Skip to next entry 

Br if more 

Else, skip to next UCB 


; Return failure 


we 


oo 


RO 
#*M<R3,R4,R6,R7> 
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: Restore registers 


i 35 
KQDRIVER = VAX/VMS QNA driver =JAN-1985 17:49: AX/VMS Macro y04-00 Page 15 xt 
yon Or MOVE _MULTI = COPY THE MULTICAST ADDRESS Bret 882 66:30:58 DRIVER .BUGSRC XODRIVER.MAR; 1°" (ea) vi 
7 } ; : -SBTTL MOVE_MULTI = COPY THE MULTICAST ADDRESS LIST 
194 ; MOVE_MULTI = COPY THE MULTICAST ADDRESS LIST 
, : ; Functional description: 
7 7) 3 ; This routine is called to copy the multicast address List from the 
: 4 } : generation table to the actual list. 
7 He ; Inputs: 
7138 ; R4 = COB address 
3 , 7195 ; Outputs: 
207 787 : ALL registers are preserved. 
4 7198 : Implicit outputs: 
307 7? $4 : CDOB_B_MULTI = Number of multicast addresses in CDB_G_MULTI 
$07 4 88 3 CDB_G_MULTI = New multicast address List 
507 7204 ° 
507 7205 MOVE_MULTI: ; Move the multicast address List 
3 §6©BB «602507 «7206 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
0068 BF 28 2509 7207 MOVCS #MAX_C_MLT#6,CDB_G_MLTTBL(R4),CDB_G_MULTI(R4) ; Copy List 
BB 
SF BA 318 7208 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
0250 C4 90 313 7209 MOVB CDB_B_ML*TBL(R45,COB_B_MULTI(R4) ; Set number of entries 
05 251C 7210 RSB 
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1 1g ee ~-SBTTL ROUTINES TO SAVE/RESTORE UCB'S MULTICAST ADDRESS LIST 
1 i ; ROUTINES TO SAVE/RESTORE UCB'S MULTICAST ADDRESS LIST 
1p 16 ; Functional description: 
1D 18 ; These routines are called to save or restore the multicast address List 
. 18 , 19 ; in the UCB. 
1D 1; Inputs: 
1D 7 § : . 
18 f 7 : RS = UCB address 
1p f 5 ; Outputs: 
BL , - ALL registers are preserved. 
t 
215 7230 SAV_MULTI: ; Save multicast address List 
3F 6B C2510) 7231 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
pose oF 28 if 7232 MOVC3 #6*MAX_C_MLT,UCBSG_XQ_MULTI(R5),- ; Save multicast addresses 
0136 §2 526 7233 UCBS$G_XxQ mT a? 3 ose 
F BA 2529 7234 POPR #*M<RO,RT,R2,R3,R4,R5> ; Restore registers 
00E9 CS 90 2528 7235 MOVB UCB$B_XQ_MULTI(RS) - ; Save count of multicast addresses 
OOEA C5 5S2F 7236 UCBSB_XQ_MLTTBL(RS : eee 
05 3 4 ; RSB ; Return to caller 
5 7239 RES_MULTI: ; Restore multicast address List 
3F by) 5 7240 PUSHR #*M<RO,R1,R2,R3,R4,R5> =; Save registers 
bos8 oF 2 : 3 7241 MOVC3 #6*MAX_C_MLT,UCBSG_XQ_MLTTBL(RS),- 3; Restore multicast addresses 
OOEC ¢? a. g UCB$G_XQ_MULTI(RS) : —e . 
F BA 253F 726 POPR =#*M<RO,RT.R2,R3.R4,R5> ; Restore registers : 
QOOEA C5 «90 «2541 7244 MOVB  UCB$B_XQ_MLTfAL(R55.- : Restore count of multicast addresses 
O0E9 C5 2545 7245 UCB$B~XQ"MULT!(R5) : aie 
05 2548 7246 RSB ; Return to caller 
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XODRIVER - VAX/VMS QNA driver -JAN-1985 17:49:06 VAX/VMS Macro v04-00 p 15 
youn OUT VALIDATE. P2'= VALIDATE P2 BUFFER PARAMET S-S¢P=1982 00;30:5¢ LORIVER BOSRCYGGDSSVER.MARST?% f389 
i 4 8 -SBTTL VALIDATE_P2 = VALIDATE P2 BUFFER PARAMETERS 
49 7 p++ 
23 f i : VALIDATE_P2 = Validate P2 buffer parameters 
49 7 é : This routine is called to validate the P2 buffer parameters. The parameters 
49 7254 ; are checked against a parameter table which verifies that the minimum value 
49 7255 ; and maximum value is not violated, and that invalid status eles are not set. 
re 7 § : If the parameter is a string, then the string must not exceed the maximum 
$3 4 : string count for this parameter. 
$68 7888 | Inout: 
549 7261 : Re = Address of verification table 
549 7 66 : R35 = IRP address 
549 7263; RS = UCB address 
a3 88 
349 , 66 : Outputs: 
rah , o8 ; RO = Status return for request 
549 7 $3 : If no error: 
549 7271; R1 = Address of parameter verification table 
549 7 i 3; If error: 
ah 4 ih : R1 = Bad parameter value 
349 , i ; ALL other registers are preserved. 
he 
549 7279 VALIDATE_P2:: ; Validate P2 buff t 
O30¢ BF BB 2549 7280 PUSHR #*MCR2,R3,RG_RGE-R7_RBROD ; Save registers 
56 2C AS 00 254D 7281 MOVL JRPSL_SVAPTE (RSS .RG : Get system P2 buffer address 
03 12 2551 7 ¢ BNEQ 0$ : Br if a system buffer 
0121 31 $3 4 10$: BRW 150$ : Else, leave 
;RNGOOO1 54 00C8 CS 00 2556 1 208: MOVL UCBSL_XQ_CDB(RS) ,R4 :; Get CDB address 
-2 56. 66 b0 558 7 87 MOVL  P2B_L“POINTER(R6).R6 =: Point to start of P2 data 
58 32 a3 C 2? f 3 : MOVZWL IRPSW"BCNT(R3) RB : Get size of P2 buffer 
2 s : Loop to check next parameter in P2 buffer 
58 02 g 2 7 3 $0s: SUBL #2,R8 3; Can we get another parameter? 
Gc 1 65 729 BLSS . Br if no = all done 
51 C 4 4 3 MOVZWL (R6)+,R1 ; Get parameter type from P2 
ey 4 38 t ##* NOTE - R2 MUST be the very first item on the top of the stack 
57 6€ 00 seh 4 4 : MOVL (SP) ,R7 ; Get verification table address 
$6) g ; : Loop to check P2 buffer parameter to Line parameter table 
38D 7302 ° ASSUME PRM_W_TYPE EQ 0 
50 87 80 4 73035 40$: MOVW (R73+7RO ; Get parameter type code 
83 12 ; § 7 BNEQ 45% :; Br if NOT end of verify table 
0107 = 31 72 7305 438: GR 170$ 3; Else exit in error 
| 


seth 


50 F000 


52.50 


50.5 
05 2 


31 FB A7 
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VALIDATE_P2 = VALIDATE P2 BUFFER 


ss Ff 
757 5 45$ ASSUME 
9A H 7 : MOVZBL 
AA 2578 7 BICW 
81 370 7310 CMP 
13 7311 BEQL 
CO sete F818 Hats 
588 7314 SKIP 
n Be Re ie 
99 731 
593 4 18 Match found - 
Bo 5599 7320 Sos: VW 
EF 39¢ , 1 EXTZV 
ef 25al 7 j EXTZV 
Sa3 7324 
EO 25a6 7325 BBS 
i 
CO SAF 7328 558: ADDL 
582 7329 57$: ASSUME 
EO 2582 7330 BBS 
C2 2587 7331 SUBL 
1§ 258A 7 : BLSS 
pO 258C 7 MOVL 
SBF 67334 CASE 
Sar 7335 
Sar 7 %6 
ae 
434 33 ; Byte value in 
59 7341 08 CMPB 
Seco 
ace , ‘ : Word value 
SCE 7 $ 70$ CMPW 
5p! g 4 BRE 
38 g a3 ; Longword value 
503 7351 bos CMPL 
306 , 3 $ BNEG 
205 7 34 BEQL 
Sor 7355 CLRW 
3 7396 91$ BRW 
3E , 3 93$ BRW 
2 38 | : String value 
568 7361 $5$ SUBL 
568 7362 BLSS 


" 
PARAMET 8238819 


curse 8 FLAG EQ PRM_W_TYPE+2 
CpaR TYP_M_CODE>,RO 


5 17:4 
4 00:2 


nullify if same value & 


(R7)+,RO 
#PRM_OFF 


R3 
Ro or yeE=B,LIMIT=A1 


60$,- 
70$,- 
80$> 


structure 


R3, (RO) 
$ 


R3, (RO) 
$ 


$ 
@NMASC_PCLI_PTY 


D 
DTH, “0, R2 
Eee 


LUE ,RO,RO 


<> 


Bete Se Se Se Ge Se Ge Se 
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Get flags byt 
Clear all ay type code 
Parameters matc 


skip offset word 
Skip minimum value 
Skip maximum value 
Skip invalid flags 
Try next parameter 


check min,max,valid, invalid 


Sete Se Oe Se Se Bee Ste Se Se Se Se Ge Se Be Be 


| 
90 
H 90 ; 5 
; t Or if a 
MP ad « : 

: if 

: ode 
: : os 
: : Br if 


Get offset * width 
Get width only 


Get offset only 


Br if CDB datum 
Compute offset in UCB 
Continue 

Compute offset in COB 


PE+2 
95$ ; Br if string parameter 


Must be longword value 
r 
Get parameter value 
Br to handler 

Byte value 

Word value 

Longword value 


error 


Is this the same? 
Check result 


Is this the same? 
Check result 


Is this the same? 
no = continue checks 
Is this the protocol type? 
Br yes - always store this 
Nullify the Soreneter c 
rey next parameter - skip checks 
GGG Branch to 17 


Can we fetch string length? 
no = error 


<t 
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(R6)+ .R3 
§ 


AR 
#NMASC_PCLI_DES,R1 
#NMASC_PCLI_PHA,R1 


VALID PHYAD 
RO,170$ 


#NMASC_PCLI_MCA,R1 
VALID MULTI 
UCBSB_FIPL(RS) 
AV_MOLT! 
#°MZR6,RO> 

3,R6 


R3.R9 
SEf_MULTI 
#°M<R6,RID 
RES_MULTI 


RO, 170 
136$ 


#PRM_FLG_V_MIN.R9, 1108 


R3,(R7)+ 
176$ 


#PRM_FLG_V_MAX,R9,130$ 


RS (R7)+ 


#PRM_FLG_V_INVALID,R9, 14 
(R7)* 


#PRM_FLG_V_CDB,R9,135$ 
Re ,UCBSW_DEVSTS.(RS) 


140$ 

Re CDB_B_STS(R4) 
176$ 

30$ 
S$*#SS$_NORMAL ,RO 
180$ 


$*#SS$_BADPARAM,RO 


#°R<R2TR3,RG ROR? RB_ROD 


r =JAN“1985 17:49: 
ATE P2 BUFFER PARAMET B7g8h- | 984 00:30:54 


Dre te ee te te ee 


Br if H or 
$ ; Br if no invalid flags 
s 
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Get string length 
Is there room for string? 
r no - error 
Is the string too long? 
Br if yes - error 
Skip past oon 
Is this the destination address? 


Br yes 
Is this the physical address? 
Br if not 

Validate the physical address 

Br if error in physical address 
Else, continue checking 

Is this the multicast address list? 
Br if no - okay 

Validate the multicast address List 
Br if error 

Sync access to UCB 

Save the multicast addresses 

Save registers 

Backup pointer to start of List 
Setup string count in R9 

See if we can set new addresses 

RO = return status 

Restore registers 

Restore the multicast List 

Restore IPL 

Br if error 

Check if state okay 


Br if no minimum value 

Is the value too small? 

Br if yes - error 

Br if no maximum value 

Is the value too big? 
es - err 


Get invalid flag 

Br if CD38 datum : 
Check UCB invalid bits 
Continue 

Is COB present? 

Br if no - okay : 
Check CDB invalid bits 
Br on error 

Loop if more parameters 


Set success return 
And return 


Set error return 
; Restore registers 
Return to caller 
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CHANGE PARAM = UPDATE UCB/CDB BASED ON P 5-SEP-1984 90:20: 
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Tal -SBTTL CHANGE_PARAM = UPDATE UCB/CDB BASED ON ?2 BUFFER PARAMETERS 
419 344 
7 y : CHANGE PARAM = Update UCB/CDB with P2 buffer parameters 
iy, § : This routine is called to update the UCB/CDB with the P2 buffer porenctors. 
i 3; The parameters are stored in the seprope late cells of the UCB/CDB. 
i : : This routine can only modify the LINE PARAMETERS. 
74 : Inputs: 
74 5 $ 7 
te 8 3 Re = Address of verification table 
4 3 R5 = IRP address 
o 2 ; RS = UCB address 
7432 ; IPL = FIPL 
r438 ; Output 
; Outputs: 

7435 ; . 
ree 3 RO = destroyed. 
eee 3 ALL other registers are preserved. 
7439 :-- 
7440 
7441 CHANGE _PARAM: : ghange the UCB/CDB parameters 
pees PUSHR = #*M<R1,R2,R3,R4,R6,R7,R8,RI,RIO> ; Save registers 
744 MOVL R2, ; Save table address 
7444 MOVL [SPS SVAPTE CAS) RG ; Get system P2 buffer address 
7445 BNEQ $ :; Br if system buffer 
oe 3$: BRW 120$ 3; Else, return 

1 5$: MOVL UCBSL_XQ_CDB(R5) ,R4 3; Get CDB address 
7450 MOVL  P2B_L“POINTER(R6S,R6  ; Point to start of data 
eel MOVZWL IRPSW"BCNT(R3) RB ; Get size of P2 buffer 
7438 : Loop to get next parameter from P2 buffer 
7455 ios: SUBL #2,R8 ; Try to get next parameter 
28 BLSS ; Br if not there 
745 MOVZWL (R6)+,RO ; Get parameter type from P2 
7458 BEQL ; Br if null value parameter 
7459 MOVL R10,R7 3; Get verification table address 
7460 CMPW =—- RO, @NMASC_PCLI_PTY : Is this the protocol type? 
7461 BNEQ o$ : Br if not 
Pees BISW #UCBSM_XQ_PROTYP,- . Indicate that protocol type specitied 
£463 UCBSW_BEVSTS(R5) : 
£292 : Loop to store buffer parameter in UCB/CDB 
89 . ASSUME PRM_W_TYPE EQ 0 
988 20$: MOVZWL (R7J+>R1 ; Get parameter type code 
746 BEQL 90$ ; Br if end of verify table 
747 ICW #*C<PRM_TYP_M_CODE>,R1 ; Clear ail but type code 
747 ASSUME PRM_B_FCAG EQ°PRM_W_TYPE+2 
747 MOVZBL (R7J+7R9 ; Get flags byte 
747 CMPW 8° R1 ; Parameters match? 
7474 BEaL §«=s«-308 : Br if yes 
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eape aye = VAX/VMS QNA drive -JAN-19 38? hf 33:06 YON VER. Macro y04-00 ve age 1¢¢ 
v04-001 CHANGE _PARAM = UPDATE UCB/CDB BASED ON P 5-SEP-19 DRIVER. BUGSRCJXQDRIVER.MAR; 1 (71) 
57 02 CO 26CA 7475 ADOL #2,R7 3; Skip offset word 
of ray SKIP RA_FLG_V_MIN,R9,R7 : + ile minimum value 
o8 47 SKIP PRM_FLG_V_MAX,R9,R7 3 Skip maximum value 
609 7478 SKIP PRUTFLG_VIINVALIB,R9.R? ; Skip invalid flags 
d7.=—C ss opr 5443 BRB 20$ 3; Try next parameter 
ed i ? : Match found - nullify if same value & check min,max,valid, invalid 
51 87 80 26€1 74 ‘ $0 MOVW sere R1 :; Get offset + width 
OA EF 2664 74684 EXTZV #PRM_OFF_V_WIDTH, : Get width only 
52 51 06 433 7485 PPRACOFE S$ WIDTH HRI, R ; “<s 
O EF 26€ i § EXTZV gPRM OFF V_VALUE, ; Get offset only 
51 51 OA 6EB 74 #PRM-OFF s-VA LUE "RILRT 
05 59 3 EO 26EE 7488 BBS #PRM-FLG-V-CDB,R9, 168. : Br if COB dat 
51 CO 26F2 7489 ADDL R5,RT : fomoute | otteae in UCB 
03 11 26F5 7490 BRB 50$ Cont inu 
51 54 CO 26F7 7491 40S: ADDL R4,R1 : | tempute offset in CDB 
6FA 7492 50S: ASSUME PRM_B_FLAG EQ PRM_W TypEre 
2E FB AZ OC EO 26FA 749 BBS #PRE TYP_V_STRING,-5(R7) -100$ ; Br if string data 
58 046 C2 26FF 7494 SUBL #4 RB ; Can we get value? 
68 19 2702 7495 BLSS 126s ; Br if no = exit 
53 86 00 Ae 7496 MOVL ie) : Get parameter value 
707 7497 CASE Roe 1YPE=8, LIMIT=41,<- ; Br to handler 
707 7498 0$,- ; Byte value. 
Hat 7499 70S, - ; Word value 
ate £300 : 80$> ;  Longword value 
a £206 : Byte, word, longword value in structure 
61 53 90 3711 £388 é0s: MOVB R3,(R1) 3; Store byte value 
FF89 31 2714 7505 9238 BR 3; Check remainder 
61 53 89 2717 £306 0$: MOVW R3,(R1) 3; Store word value 
GES Be aos, BOB ii. 
3; Sto ongw value 
FF7D ef us £208 BR W 10$ 3; See if Ho left in P2 buffer 
4 oi) : Unknown or invalidated parameter 
56 04 CO 27 aig $0s: ADOL #4,R6 : Skip value parameter 
58 Pe} Ff 3 eae su ee “RB 3 peoyes o ve ue parameter 
; Br m 
ee 4 7318 BRB 120$ : Else, all done 
4 4 8 : String parameter in structure 
58 92 c 72D 7520 100$:  SUBL #2 RB ; Can we get string? 
A 19 2730 7521 BLSS 120$ : f no - exit 
59 3 7 75 § MOVZWL (R6)+,R9 3 Get string length 
58 $ C3 3 7 ? sus 3 6 3 zen ye Fens 09 ire string? 
: no - 
50 0821 2 4 4 f 5 Hag SAS _PCLI_DES RO : Is fois. the destination address? 
0244 x oe) 3 4 psee ‘i DESAD : Pet auat new destination address 
3; Cont 
50 0804 BF 8 746 4 § 101$: CMPW #@NMASC_PCLI_PHA,RO 3 is this the physical address? 
748 ? BNEQ 1038 ; Br if no 
0220 3 740 7 BSBW SET_PHYAD ; Else set new physical address 
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0$ 
ENAASC_PCLI_MCA,RO 
5 q MULTI 
#°M<R1,R2,R3,R4,R5> 
#°M<R1,R2,R3,R4,R5> 
R6 


o$ 


—DWawe—-n—-2— 
0 >O »—moz— 
om 


Continue 
Is H's the multicast address list? 
r if no 


Else, set up new UCB multicast List 
Continue 

Save registers 

Store s — 

Restore registers 

Point past the string in P2 buffer 
Try for more in P2 buffer 


#*°M<R1,R2,R3,R4,R6,R7,RB,RI,RI0> ; Restore registers 


eturn to caller 


—E 4 
XQDRIVER = VAX/VM drive -JAN-1985 17:49: AX/VMS Macro v04-00 
yOenOuT RET URN PS, A Ray UCB/CDB buffer parame ets 1 00:30:52 LORIVER. BUGSRCJXQDRIVER.MAR; ’ ge 195, 
44 4 $ -SBTTL RETURN_P2, Return UCB/CDB buffer parameters 
7 i d p++ 
7H a3 | RETURN_P2 = Return P2 buffer parameters 
aa 4 ° This routine is called to return the UCB/CDB buffer parameters. 
44 $ : Inputs: 
771 2? : 7 = IRP address 
ot § ; R5 = UCB address 
44) 38 : Implicit inputs: 
771 7560 : IRPSL_XQ_P2BUF(R3)_= User P2 buffer address 
ot £30) $ IRP$W_XQ_-USERSIZ(R3) = User P2 buffer size 
Fo FEE f ous: 
771 +7565 : RO = Size of buffer returned 
771 £206 3 ALL other registers are preserved. 
rot Pee : 
771 7569 ° 
771 F255 RETURN_P2:: ; Return P2 but fer parameters 
O3SDE 8F BB 2771 7571 PUSHR #*M<R1,R2,R3,R4,R6,R7_R8- = 3; Saver soi sters 
D4 ote £376 CLRL 3; Assume no P bulter iven 
56 40 A D 777 «=—757 MOVL JPPSL_XO_P2BUF (RS). RE ; Get user P2 buffer address 
0 1 77B «7574 BNEQ ; Br if given 
0087 = 31 a4 £ef3 BR 70$ ; Else, return 
;RNGOOO1 54 sas cs 0 27 2 1 5$: MOVL UCBS$L_XQ_CDB(R5) .R4 ; Get CDB address 
2 58 38 A3 3C 2785 7579 MOVZWL IRPS$W-XQ"USERSIZ(R3),R8 ; Get size of user buffer 
DD 2789 7580 PUSHL R 3; Save start of cate address 
DD ree 7581 PUSHL R ; Save IRP addre 
51 DBFO CF 9E rep a es MOVAB LINE_PARAM,R1 ; Get address of “veriticetion talbe 
a 73 $i ; Loop to return next parameter 
792 7 6 : ASSUME PRM_W_TYPE EQ 0 
57 81 "9 792 7 10$: MOVW (R1}+>R7 ; Get parameter type code 
0052 i at} 7 3 ewe bt : Br if end of verify table 
7 A , oO eee 
57 F000 gf AB gpa 3 118: BICwS #*C<PRM_TYP_M_CODE>,R7.R9 ; Get only the type code 
53 1 QA 27A 1338 MOVZBL (R1)+,R3 ; Get flags byte 
50 1 60 oA f a MOV (R1)+.RO ; Get offset + width 
on 95 We will only return NMASC_PCLI_DES to the SHARED-LIMITED users. 
59 0821 oF 7 ne 38 : , coy #NMASC_PCLI_DES,R9 : is | i . point-to-point parameter? 
00D8 C5 ¢ of 7A 38 CMPB #NMASC_ACC_LIM,UCB$B_XQ Accins) Is this a SHARED-LIMITED user? 
12 70 6 ? BNEQ 50$ not, else return parameter 
oA EF 278 13$: EXTZV  #PRM_OFF -Y -WIDTH,- : Get width only 
52 50 6 786 7602 #PRA_OFF-S"WIDTH, *RO,R2 : ome 
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; Get offset only 


Br if COB datum 
——_ offset in UCB 


ontinue 
Is $06 given? 

Br if no 

Compute offset in CDB 
Any room left in buffer? 


Br if no = all done 
s peture parameter 


: Br to handler 


; Byte value 
; Word value 
;  Longword value 


; Store byte value 
; Store word value 


maximum value 


EXTZV #PRM_OFF_V_VALUE,- 
#PRM~OF F-S-VALUE RO RO 
BBS #PRM-FLG-V~CDB,RS, 15S 
ADDL RS RO 
BRB 17$ 
TSTL = RG 
BEQL 508 
ADDL R4 RO 
SUBL  #2,R 
BLSS 608 
MOVW = R7, (R6)+ 
BBS #PRM_TYP_V_STRING,-5(R1) 
SUBL #4,R8 ; 
BLSS 6 
CASE = R gtYPE=B,LIMIT=#1 , <~ 
$.- 
40$> 
word, longword value in structure 
MOVZBL (RO), (R6)+ 
BRB 0 
MOVZWL (RO), (R6)+ 
BRB 50$ 
MOVL (RO), (R6) 
SKIP  PRM_FLG_V_MIN,R3,R1 
SKIP § PRM“FLG-V“MAX.R3,R 
SKIP —- PRMFLG-VINVALID,R3,R1 
BRB 10$ 


; String value in structure 


#NMASC_PCLI_MCA,R9 
RETURN_MULTI 
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; Skip invalid flags 
; Try for more parameters 


Is this the multicast address List? 
Br if no 


Else, return multicast address List 
Try for more parameters 

Any room left? 

Br if no = all done 

Store string size 

Move data 


Try for more parameters 
Get IRP address 


(SP) ,R3 
#SS$_BUFFEROVF ,IRPSW_xQ_STATUS(R3) ; Return error status 


R3 
(SP)+ 


3; Pop stack 
urn size of parameters 


R6,RO ;_ Ret 
#*ncri.R2,R3,R4,R6,R7,R8.R9> ; Restore registers 


3; Return to caller 
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SATE THE MULTICAST ADD S-SeP=1984 00:30:46 


«SBTTL VALID_MULTI = VALIDATE THE MULTICAST ADDRESS LIST 


r>Ccoom 


VALID_MULTI: 
PUSHR #*M<R2,R3,R6> 
#1,R0 


RQ , BNMASC_LINMC, CAL 


Ar 


AX/VAS Macro 


++ 
; VALID_MULTI = VALIDATE THE MULTICAST ADDRESS LIST 
; Functional description: 


This routine checks all addre 


he multicast address List to make sure 
; that the logical address bit 5 a 


on. 


ze of multicast string List 


dress past multicast strings 


RO = Low bit clear if invalid address in list 
ALL other registers are preserved. 


Validate the multicast address List 
Save some registers 


Assume success 


Point back at start of list 
gan ye read modifier word? 
r 


no - error 


: Make we at? he word is valid - non-zero and less than or equal to 


Get modifier value 
Br if zero - ille 
Is the modifier o 


Br if no - error 

Br if ‘CLEAR ALL" = i 

zeleylete number of s 

Br if none 

Br if not a Logical address 
bits = -1? 


Do low order 


Br if ree - ille 
Point to next mu 
Loop if more 

Exit with success 


Return error 
Restore registers 


P 
DRIVER.BUGSRC JXQDRIVER.MAR; 1 


f no - whey 
Do high order 16 bite 
a 
ticast address 


Ss 
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noon iver stk = Nn 138? 40:48:06 AX/VMS Macro y04-00 page 167, 


TE THE PHYSICAL ADDR ara 0:20: DRIVER. BUGSRC JXQDRIVER.MAR; 
~SBTTL VALID_PHYAD = VALIDATE THE PHYSICAL ADDRESS 


> 
oo 
>> 
tr 
a 
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>> 


oe 
VALID_PHYAD = VALIDATE THE PHYSICAL ADDRESS 
Functional description: 


This routine checks the physical address to make sure the LSB is clear and 
that the modifier word is valid. 


Pb aS) a a 4 2 


Inputs: 


Parameter type code 
Size of string 


vw 


Outputs: 


RO = Low bit clear if invalid address in List 
ALL other registers are preserved. 


SS 


a Pp, Pi, in a I yy Ty i Se ee ee ee ee | 
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7 
Ms ALID_PHYAD: ; Validate the physical address 
004C 8F 8B 77 PUSHR #*M<R2,R3,R6> ; Save some registers 
50 9 C 77 MNEGL #1,R0 3; Assume success 
29 oe 77 SUBL B3°RO ; Point back at start of List 
5 9s C 774 SUBL es R 3 Can we read modifier word? 
1 ote BLSS 30$ ; Br if no - error 
7743 ; 
ore 3; Make sure modifier word is vatid. 
7746 - 
774 ASSUME NMASC_LINMC_SET EQ 1 
774 SSUME NMASC_LINMC_CLR EQ § 
774 ASSUME NMASC_LINMC_CAL EQ 
of ASSUME WAASC AL ANAC SOF EQ 4 , 
52 8 3 7 MOVZWL (R6)4,R 3; Get modifier value 
4 SDISPATCH R2,TYPE=B,- ; Dispatch on modifier value 
i <NMASC_LINMC_SET 20$>,- ; Set the address 
<NMASC_LINMC“CLR 40$>,- , Clear the address 
77 <NMASC_LINMC_CAL 30$>,- ; 3 - invalid value 
of SNAASC_LINAC_SDF 10$>,- ; 4 = check it out more 
17.1 rr BRB 30$ 3; Any other values are invalid 
51 0804 8F e 3 10$ CMPW #@NMASC_PCLI_PHA,R1 ; Set to def physical addr requested? 
A ¢ a BNEQ its ; Return failure if not 
A 1 ad BRB 40$ ; Else, success 
53 1 20$ CMPL #6,R3 : Is string size okay? 
8 fF a BNEQ 3; Br i bee . 
02 66 =«€CC€ 776 BLBC (R6) 408 ; Br if a physical address 
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KQDRIVER = VAX/VMS QNA driver =JAN-1985 17:49: ‘AX/VA - 
yOenour VALID_PHYAD = VALIDATE THE PHYSICAL ADDR Boat 882 60:30:52 DRIVER .BUGSRC POOR VER.MaRsn t 4) 
A 6 
0 D4 ry} i f 30$: CLRL RO ; Return error 
004¢ Ht ts 558 40$:  POPR #*M<R2,R3, : 
BA : erry 6 4+4 M<R2,R3,R6> ; Restore registers 
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: SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 
; Functional description: 
; This routine sets up the multicast addresses in the UCB. 


COB address 
UCB address 


AX/VMS Macro y04-00 
RCJXQDRIVER.MAR; 1 


«SBTTL SET_MULTI = SET THE UCB MULTICAST ADDRESS LIST 


P 


Address of amyl tteant addresses to be set or cleared 


Size of multicast list 
IPL = FIPL 


RO = Status return for request 
ALL registers are preserved. 


o_Rcat AZ RS.RO ROD 


Ri} TYPE=B .LIMIT=41, 


40$;- 
70$> 


; Set address from List 


Ro 
908 

(R6)+,R1 

(R6)+,R2 

mat H ADDRESS 
FIND _MLTENTRY 
Rott 

R1.(R3)+ 

R2,(R5)+ 

ucese XQ_MULTI(RS) 
R9,208 

90$ 


: Clear address from List 


7 
EQ g 
Mi ,<- 


; Set up the UCB multicast address List 
; Save registers 
; Can we read the modifier word? 


e 
; Calculate number of addresses 
; Get the modifier 


Dispatch on modifier 
Set the address(es) 
Clear the address(es) 
Clear ALL addresses 


Any addresses present? 

r no - exit 
Get multicast address 

Try to find address in table 
Br if present - sk 
Find entry in UCB 


f none - leave in error 
Insert new address 


p it 
muiticast table 


Count one more address 


vx 
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; Return to caller 


£"FIND_MLTENTRY - FIND EMPTY SLOT IN UCB MULTICAST ADDRESS LIST 
: Inputs: 

R5 = UCB address 
Outputs: 


XQDRIVER - VAX/VMS QNA driver -JAN-1985 17:49: AX/VMS Macro y04-00 Page 17 
yaa sey MULT - ef THE UCB MULTICAST ADDRES mets 1 5:58:98 DRIVER.BUGSRCJXQDRIVER.MAR; 1 st (8) 
9 ED 7830 40$: TSTL R 3 Any addresses present? 
D ONS Seer Oe Beat os S Ort? no = exit 
2} 6 OD Fi B32 508: MOVL (R6)+,R 3; Get multicast address 
2 6 4 Fe 78 MOVW (R6)4,R : one 
0144 F7 (78 BSBW MATCH_ADDRESS ; Try to find address in table 
08 E FA 78 BLBC RO, 608 ; Br if not present = skip it 
04 FD : CLRL (R5)¢ ; Mark slot as not in use 
4 FF : CLRW (R3)¢ 3 oe 
O0E9 C¢ 7 DECB UCBSB_XQ_MULTI(RS) 3 Count one less address 
004 9 9 BSP SQUE EZ MOLTI 3: Squeeze up the multicast List 
E6 5 F B40 60$ SOBGTR R9 ; Br if more 
ie . 4 BRB 90$ : ALL done 
¥ 3 Clear all multicast addresses 
B45 70$:  CLRB  UCBS$B_xO MUL TI(RS) ; Reset number of multicast addresses 
Bt, MOVZBL #MAX_C_MCT#3,R1 ; Get number of words in multicast List 
BG MOVAB UCBSG_RO_MULTI(RS) .R2 ; Get address of multicast addresses 
48 80$ CLRW (R2)+ ; Init multicast address List 
4 SOBGTR R1,80$ ; Loop if more 
3 4+ $3 MOVZBL S*#SS$_NORMAL ,RO ; Return success 
; 100$: POPR #°M<R17R2,R3,R6,R9> ; Restore registers 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 


Ro = Status return for request 
R35 = Address of available slot if successful 
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xa 
Sy 
NM 
NM 
NM 
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NM 
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NM 
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NP 
NM 
NM 
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NB 
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Np 
np 
NM 
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NF 
NP 
Ne 
Ne 
NF 
NU 
Ne 
NPI 
Ne 
ne 
NE 
NP 
Ne 
NE 
Nee 
Ne 
ne 
NE 
Ne 
va 
Ne 
NP 
NP 
NP 
MP 
NH 
NO 
OR 
OR 
OR 
OR 
P1 
22 


? 
30 
9 ? 
9 ? 
e9 ? 94 29 ? 
9A 2911 7 
52. GOEC CS) =9E 2914 7 
¢ B4 2919 78 
FB FS 2918 78 
SIE 78 
50 gy 9A e91E 78 
O24E 8F 4 9 7é 
5 29 7 
9 7é 
9 78 
9 7é 
9 7é 
9 78 
9 78 
9 78 
9 78 
9 78 
9 7é 
9 7 
9 7é 
9 78 
9 7é 
DD 29 7é 
CE 29 78 
53 9E 29 78 
9A 29 ? 
D5 29 ? 
9 ? 
9 ? 
9 ? 
9 ? 
9 

941 & 
941 7 
943 7 
946 7 
94 4 

94A 
940 7 
7 
7 


67 FIND_MLTENTRY: 
51 6 PUSHL 3; Save RI 
50 01 $ MNEGL #1,R0 3; Assume success 
OQOEC C5 MOVAB UCB$G_xa MULTI(RS),R3 ; Get address of multicast List 
51 ¢ B7 MOVZBL #MAX_C_MCT,R1 ; Get maximum number of addresses 
B72 10$ TSTL 3 Empty slot? 
. @ 37 BNEQ 2 ; Br if no - skip to next entry 
63 8B 57 TSTw (R35) ~» Really? 
an 87 BEQL 308 ; Br if yes - success 
53 so 876 208 ADOL 7] 8} ; Skip to next address 
F2 51 OF 37 SOBGTR R1,10$ ; Br if more to try 
50 D4 CLRL RO : Return failure 
53 04 C2 B80 30$: SUBL #4 ,R3 3; Back up pointer 
51 bEpy B81 POPL 3) ; Restore registers 
0 tt RSB 
Bi 2@ 
94A 7885 ; SQUEEZ_MULTI - SQUEEZE UP THE MULTICAST ADDRESS LIST 
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SEY THE UCB MULTICAST ADDRES SoSeP=1980 OO:s0.5¢ YORIVER.GoeSRCToGD eT VER.maR 12% foes 
4 7 : Functional description: 
If § : The first empty slot is searched for in the multicast address list and 

+ : the List is squeezed from that point down. 
6 3 Inputs: 
f Be : RS = UCB address 
4 38 : Ouputs: 
7898 ; N 
38 one 
7901 Soueez at R3 $ ae down the multicast address List 

: Save 

79 : MOVZBL UCBSB_XQ_MULTI(RS),R4 ; Get number of entries in List 
7904 BEQL 4 ; Br if no 
7905 MOVAB UCBSG_XQ_MULTI(R5),R3 ; Get address of multicast List 


F909 : Search for empty slot in List 
TSTL (R3) 
8 


7910 NEQ 0$ 

7911 TSTw 4(R3) 

eat EQL 0$ 

7913 208 ADOL 6,R3 

7914 OBGTR R4,108 

7915 RB $ 

7317 ; Empty slot found - put the squeeze on. 
$919 $0$:  MOVL 6(R3),(R3)+ 
7920 MOV 6(R3),(R3)4 
7921 SOBGTR R4, 30$ 

79 ‘ CLRL (R$) 

79 CLRW (R3)¢ 

7924 408 44 R3 


; Is this the empty slot 
Br no 


; Skip t0 next anes in List 
; Loop i b 
; Else, aaat 


more possiblities 


Squeeze the List 


Loop if more to 
Zero the last en -# 


Restore *R3, RG 
Return to caller 


: 
. 
C' 
; 
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XQDRIVER = VAX/VMS QNA driv AN-1985 17:49: AX/VMS Macro v04-00 Page 17 
yOeeOOt SET_PHYAD = SET THE PHYSICAL ADDRESS Bonn 1982 4 00: $8398 DRIVER .BUGSRC JXQDRIVER.MAR; 1 _ (78) 
97D 7927 -SBTTL SET_PHYAD = SET THE PHYSICAL ADDRESS 
3fp a - -SBTTL SET"DESAD = SET THE DESTINATION ADDRESS 
97D 79 0; ¥ SET _PHYAD = SET THE PHYSICAL ADDRESS 
3h a : SET~ _DESAD = SET THE DESTINA T10N ADDRESS 
370 9 ¢ ; Functional description: 
970 19 5 3 This routine sets up the physical address in the CDB. 
370 09 : Inputs: 
970 7939 : R4 = CDB address 
97D 7940 : RS = UCB address 
97D 7941 ; R6 = Address of physical address to be set or cleared 
44 oe 3 R9 = Size of the string 
370 944 : IPL = FIPL 
378 fai uous 
39 7308 0 eer sietie d 
g other registers are preserved. 
370 7950: age Snecma 
37. 1338 a mie es Set the CDB ph l add 
: 3; Se si r 
02¢2 BE BB 97D 7954 ~ — PUSHR s*ncR1.RO.R7_RO> jimmaus' 
57 O0F2 CS 9E 2981 7955 MOVAB UCBSG_xa “BHALRS) , R?7 : Get address of UCB cell 
09 11 2 ag BRB 10$ ; Join common code 
988 7957 SET_DESAD: 
O2C2 8F BB 29 Lag} PUSHR #*M<R1,R6,R7,R9> 3; Save registers 
57 0000 C5 98¢ 6795 MOVAB U BSG_K0_DES(RS) .R7 ; Get address of UCB cell 
59 O02 C¢ 991 7960 108: SUBL #2,R : Can we read the FE word? 
40 1 7961 Biss 508 : Br if no - exit 
59 06 C6 res DIVL #6 .RO ; Calculate number of addresses 
51 863 999 796 MOVZWL (R4)+,R1 > Get the modifier 
7965 ASSUME WMASC_LINMC_SET EQ 1 
C ASSUME WRASC_LINMC_CLR EQ ¢ 
796 ASSUME WMASC_LINMC_CAL EQ 
7968 NMASC-LINMC-SDF EQ 4 
ay SOISPATCH R1,TYPE=8,- : Dispatch on modifier vaiue 
ort <NMASC_LINAC_SET 20$>.- , Set the address 
8 <NMASC_LINMC_CLR Re>o 3; Clear the address 
797 <NMASC_LINMC_CAL 50$>,- ; - invalid value 
ore SMAASC_LINAC_SDF 60$>,- ; Set physical as DEret default address 
2c Oo ia th BRB 508 3; Any other values are invalid 
7978 ;: 
roe 3; Set physical address 
59 §=6—=S 7981 208: TSTL 3 ioe addresses present? 
ss 13 79 BEQL 508 : if no = exit 
87 é 00 79 MOVL (R6)¢,(R7)+ $ Set new address 
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QNA driver g- JAN“1985 17:49: 06 AX/VMS Macro v04-00 Page 
- SET THE DESTINATION ADDRESS -SEP-1984 00:20: DRIVER. BUGSRCJXQDRIVER.MAR; 1 
7984 MOVW | ig aaa 3 ove 
4} 5 ; BRB 50 ; ALL done 
73 § ; Clear address from List 
79 § $0s: MNEGL #1,(R7)+ ; Reset address 
7990 R7) 3 one 
7991 50$ : ALL done 
B34 
7994 Set the physical address (Assume entered from SET_PHYAD) to the DECNET 
7995 : default address. The PHA address has been pre-set with -1, which implies 
£338 3 using the H 
.1 408: ASSUME CDB_STS_V_INITED EQ 0 
BL3S CDB-B_STSTR4) ,50$ : Br if device glready inited, use HWA 
80 MOVW  G*SCSSGB_SYSTEMID.R1 : Else, get SCSSYSTEMID parameter 
8001 ect 50$ ; Br if none, use HWA 
8002 MOVL #*X000400AA, (R7)+ ; Set common low longword of addr 
o003 MOVW R1,(R7) ; Set unique high word of address 
tH POPR #°M<R1,R6,R7,R9> ; Restore registers 
006 RSB ; Return to caller 
8007 -DSABL (i58 
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XQDRIVER = VAX/VMS QNA driver ~JAN-1985 17:49: AX/VMS Macro v04-00 Page 174 
yOen Os RETURN_MULTI = RETURN THE MULTICAST ADDR =3eN- 1382 00:30:56 DRIVER.BUGSRCJXQDRIVER.MAR; 1 . (77) 
+4 | 9 ~SBTTL RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST 
9DB 11 344 
4 ! 3 RETURN_MULTI = RETURN THE MULTICAST ADDRESS LIST 
pes bie : Functional description: 
4 B18 ; This routine returns all the multicast addresses in the UCB List. 
re 18 ; Inputs: 
DB 3 R4 = COB address 
908 ; R5 = UCB address F 
908 § 3 R6 = Address where to store multicast address List 
908 8023 ; R8 = Size left in output buffer 
90B 8024 ; 
908 8025 ; Outputs: 
908 80 g : j 
908 8027 ; R6 = Address past stored multicast address List 
908 8028 ; ALL other registers are preserved. 
90B 8029 ; 
9DB 8030 ;-- 
908 8031 
908 HR RETURN_MULTI: ; Return the multicast address List 
908 3 PUSHQ Ri 3; Save R1, R 
52 O00E9 C5 9A 29D 034 MOVZBL UCBSB_XQ_MULTI(RS5).R2 ; Set number of multicast addresses 
51 QOEC C5 rs 9E HSH MOVAB UCBSG_XQ_MULTI(R5),R1 ; Point to start of multicast Lists 
58 O02 C 9E8 8036 SUBL #2,R8 ; Can string size fit? 
1€ 19 2968 8037 BLSS 408 : Br if no = return 
56 02 CO 29ED 8038 DDL #2,R6 ; Skip size field of return data 
56 DD 29F0 8039 PUSHL ; Save start address of string 
58 06 c ore 8040 10$: SUBL #6,R8 3; Room left in buffer? 
09 «1 gor 8041 BLSs  30$ ; Br if no .. exit now 
86 81 DO 29F7 9k MOVL (R1)+, (R6)+ ; Return address 
86 81 860 sora +94 MOVW (R1)+,(R6)+ r seu 
F252. F5 oF O44 SOBGTR R2,10$ : Br if more possibles 
51 aes A00 046 30$ POPL R1 ; Restore string address 
a 3) ¢ AQ 047 SUBL3 =R1,R6,R2 ; Get string size 
FE Al 52 B80 2A07 8048 MOVW R2,-2(R1) 3; Return string size 
sage 8049 40$ POPQ R1 3; Restore R1, 
05 2A0E 8050 RSB ; Return to caller 
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+4 
MATCH_MULTI = CHECK MULTICAST ADDRESS 
Functional description: 


>>r>rrrr,r 
ba ea Ba Dens Bs Bs Be 


This routine returns success if the unit is in promiscous mode, or the 
recognizes all multicast address or the multicast address in the buffer 
matches a multicast address in the unit's multicast address List. 


OOQOOOOOOCOCSooO 


Inputs: 


= Receive buffer 
RG ° COB address 


>>> > rr PP PP 
OOOOOCOOCoO: 
Sg De le De Be Des Dee Des | es | 
Od Cd Co C9 Gd C9 CD C9 0909 09 0D C9 CO CD CD CD OD CDCD OD 
OooCcooo 
PAAAAAAAASMIIMNNNUNIUIN 


Be Ge Se Ge Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Se Sete Se Sete 
= 
~ 


RS = UCB address 
AOF Outputs: 
AOE B09 
AQF 807 RO = Status return for request 
AOF 807 Ri = Destroyed 
AOF 807 ALL other registers are preserved. 
AOF 8 


MATCH_MULTI: Find multicast addres in UCB 
PUSHQ 


Rorornone 

>>> 

ooo 

Se ea) 
SOoOooooooooo 


7 
7 
AOF 7 R2 3; Save 
50 De Ale 7 CLRL = RO : Assume failure 
A14 8 ASSUME UCBSV_xXQ_ INITED EQ 0 
22 68 AS) =6E9) OATS 8 BLBC UCBSW_DEVSTS(R5),10$ ; Br if PROTOCOL TYPE is not valid 
D6 2A18 8 INC RO : Assume success 
AlA O84 ASSUME NMASC_STATE_ON EQ 0 
A1A 5 ASSUME NMASC_STATE OFF EQ 1 
18 OODE CS £9 2AIA 8086 BLB UCB SS te PRA IRS) «108 ; Br if promiscuous mode - OKAY 
16 OODF C5 4 AlF tt BLBC UCBSB_XQ_MLT(R5),10$ ; Br if all multicasts are enabled 
51 38 A2 D 2A24 8088 MOVa CXB$G_R_BEST(R2) ,R1 : Get multicast address 
FFFFFFFF 3 D1 A : 089 CMPL #BROCSTT,R1 3; Is this the broadcast address? 
07 12 2A2F 8090 BNEQ 5$ : Br if no 
52 FFFF 8F- 61 A31 091 CMP #BROCST2,R2 3 Really? 
02 13 2A36 bag BEQL 1 : Br if yes - everybody get this one 
04 10 2A38 8093 5$: BSBB MATCH_ADDRESS ; Else, find exact match 
ASA 8094 10$ POPQ R2 3; Restore R2, R 
05 2A3D 8095 RSB » Return to caller 


XQDRIVER - VAX/VMS QNA driver -JAN-1985 17:49: AX/VMS Macro v04-00 Page 17 
v04-001 MATCH_ADDRESS = FIND A MATCH ON A MULTIC Bonn 1382 00:30:52 DRIVER.BUGSRCJXQDRIVER.MAR; 1 » (79) 
A : i -SBTTL MATCH_ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS 
ASE 3+4 
" ; 1 y ; MATCH_ADDRESS = FIND A MATCH ON A MULTICAST ADDRESS 
A : : : Functional description: 
ASE 8104 : This routine searches the UCB multicast address List for a match on a 
“ ; : 5 ; multicast address. 
A : 5 : Inputs: 
ASE 81 3 : R1 = Low 32 bits of 48 bit multicast address to match 
ASE 8110; R2 = High 16 bits of 48 bit multicast address to match 
ASE 8111; R4 = COB address 
A : 1 : RS = UCB address 
: 4 V3 : Outputs: 
ARE 116 : R0 = Status return for request 
ASE 8117; R35 = Address of slot in multicast address List 
A3E 118 3 ALL other registers are preserved. 
ASE 8119 ; 
ASE BIS) 
ASE 81 ¢ MATCH_ADDRESS: 3; Find multicast address in UCB 
54 DD 2A 1 PUSHL 3; Save R4 
50 01 QA nag 124 MOVZBL S“#SS$ RO 3; Assume success 
54 O0E9 CS 9A 2A4 125 MOVZBL UCB$B_RQ_MULTI(RS),R4 : Set number of multicast addresses 
53 OOEC C5 9E 2A468 81 $ MOVAB C1 YT; leat ; Point to start of multicast Lists 
51 83 D1 AG 1 10$ CMPL (R3)+, 3; Is this a match? 
O3 12 2A5 1 : BNEQ 20s :; Br if no - skip to next 
52 6 B1 2A5 1 CmPW if »,R2 3; Is it really? 
8 13 2a5 130 BEQL 0$ :; Br if yes - aii done 
53 09 £? AS 131 20$: ADDL og°88 ; Skip to next entry 
FO 54COdéF: a : ¢ SOBGTR R4,10$ ; Br if more in List 
50 D& 2ASD 8134 CLRL RO ; Return failure 
Ss & ¢ ASF 8135 30S: SUBL #4,R3 ; Backup pointer 
54 2eb0 A6 1 $ POPL RG 3; Restore R4 
0 A6 1 RSB ; Return to caller 
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+ 
POKE_USER = Deliver attention AST 
Functional description: 


This routine is used to deliver an attention AST if one has been 
requested. 


Inputs: 
RS = UCB address 
Outputs: 


RO =_Low bit clear only if user is not notified 
R1-R3 are destroyed. 


Sete Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
. oa 


POKE _USER 


NOME WN SO ONO UNE UW OO OOVNOUE UP" 00 1=Fra 


vw 

—S 
= 

—_ 


™m 


Ww 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SNS SSNS NIAAA AAA AAA AMAIA BP BPP PPE EE 


COONAOUS WN OO 


; Poke user process 


DsBINT ucese.. FIPL(RS) : Sync access to UCB 
(SP) 3; Assume failure 
moves UCeSL. XQ_AST(R5),R1 3; Get AST Listhead 
TSTL (R1) ; Empty 
BEQL 30$ : Branch if yes 
INCL (SP) 3; Indicate success 
PUSHL RG 3; Save R4 
VL R1,R4 3 tony Listhead address 
0$ MOVL (R1),RI : Address a bloc 
EQL 208 : Branch if done 
MOVL UCBSL_DEVDEPEND(R5),- ; Change parameter 
ACBSL_KAST+4(R1) 3 return status 
BRB 10$ 3; Continue thru ort blocks 
0$ JSB G*COMSDELATTNAST ; Deliver the AST‘ 
POPL R4 3; Restore R4 
0$: PO RO Return success indicator 


Restore IPL 
Return to caller 


m 
ar 4 
oowvu 
—— 
2 
Ts 
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3++ 
; MATCH_PROTYP = Match protocol type 


; MATCH PROMTYP = Find the promiscuous user 


: This routine checks for a match of a protocol type against that in 
3; existing UCBs. 


Inputs: 


R1 = word of protocol type 
R4 = COB address 


Outputs: 


S=> match; LBC=> no match 
B address on success 


XQ_END:: 


DONA MALS OD ODNAMNE WS OD NAME WO ODNAUE UM OWOONAUE Ww 
@Q 
m 
© 
- 


POPPIN IPIPIPIPIPIPININIPIIINININININININIPIPIPIPINIRINIRD 2 2 9 


9 
9 
9 
9 
9 
MATCH_PROTYP: ; Match protocol type 
50 CLRL RO 3; Assume failure 
55 0110 C4 MOVL DB_L_UCBO(R4) ,R5 ; Get first UCB address 
: 1 0 0$ ; Br if not inited - yet 
55 3OA 108: Vv See SUK CRS) oS ; Get_next UCB address 
12 BEQL 0$ ; If EQL no match 
ASSUME UCBSV_xXQ_INITED €Q 0 
F6 68 AS } BLBC UCBSW"DEVSTS(R5),10$ ; Br if PROTOCOL TYPE is not vatid 
1 ASSUME NMASC_STATE_ON EQ 0 
: ASSUME NMASC_STATE_OFF EQ 1 
F1 OODE C5 1 BLBC UCBSB_XQ_PRM(R5),10$ ; Skip if PROMISCUOUS user 
OOcE C551 1 CMPW =sR'1,UCBSW>XQ_PROTYP(RS) ; Match? 
EA 1 BNEQ =-:108 : If NEQ no = loop 
0 18 15$: INCL RO ; Return success 
19 208: RSB 3 Done 
MATCH_PROMTYP: 
50 01 MOVZBL #1,R0 ; Assume success 
55 0210 C4 MOVL CDB_L_PRMUSER(R4) ,RS ; Get PROMISCUOUS user's UCB address 
9¢ BNEQ 10$ :; Br if present 
CLRL = RO » Else, return error 
108: RSB ; Return to cailer 
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= 


IOCSRELMAPREG eenerere =X IRPSW_FUNC 

1OCSRE TURN eererere =X IRP mitt = 

1b sf Reba: coe * Hitag8s8 

10 "DONE ¢ 1B6A R IRP “YO-PosizZ 4 G 

10 BSC R IRP$W-XG"PROTYP A G 
IPC$_ASTDEL = IRPSW_XQ_RID 8 G 
IPL$_QUEUEAST = [RPS NG STATUS AG 
IPL$_SYNCH = IRP$W~XQ-USERSIZ : G 
IPLS_TIMER = JIBSL-BYTCNT s 

IPL$_XQ_DIPL = JIBSL-BYTLA s 4 

IPL$-XQ"F IPL = LINE. TR 9R 03 
IRPSE_EFN = LINE-CTR_BUFSIZ = oA 
IRP$B_PRI F LINE-CTR-SIZE z 4 
IRP$B_RMOD = LINE_ PARAM 4 e 93 
IRP$B_TYPE = LINE_PARAM WO 8R 3 
IRP$B_XQ_DATAP 6 G LINE-PRM_BOFSIZ = 0000007A 
IRP$B_XQ_FUNC .*@ LOAD REC? 1508 RG = 03 
IRP$B_XQ_RING 9 G MASKA = 38 

IRP$B_XQ" SLOT 8 G ASKL = 
IRPSC_LENGTH = C4 MATCH_ADDRESS ASE R 03 
IRP$SC_XQ_STD $0 G “RAUL AOF R H 
IRPSL_AST 2 1 MATCH_PROMTYP ABD R 0 
IRPSL_ASTPRM = 0014 MATCH_PROTYP 98 R 0 
IRP$L_BCNT = 32 ATCH_SHR 10 R 0 
IRP$L_D1AGBUF s 3 MATCH SRC 8B R 0 
IRPSL_FOFL z : MAX_BOFSIZ_UV1 z EA 
IRPSL_10SB = 4 MAX_C_CHAIN = 01 
IRPSL_IOST1 z 8 MAX~C_MLT 2 

IRP$SL_10ST2 = ¢ =C=RCV = 

IRP$L_LBOFF = 9 MAX—C_RCVUVI s 

IRPSL_MEDIA = 3 ~C_ XAT = 04 
IRP$L_PID = 4 *C-XMTUVI = 1 
IRP$L_RBOF F = MAX_PRT_SIZE = Ts 
IRP$L_RBUFH_AD = MIN-PKT- SIZE = 00 2€ 
IRPSL_SVAPTE = C MMGSGL_SPTBASE eeeeeeee = X 0 
IRP$L_UCB = 4 MOPCTRTAB 17 0 
IRPSL_WIND = 0000001 MNP_CTR_BUILD 0 
IRP$L_XQ_DATBUF 000000 3 G MOP" CTR-REQUEST 0 
IRP$L_XQ"DGUNI 00000 G MOP-CTR-SIZE = 

IRP$L_XQ_ G MOVE MUCTI 03 
IRP$L_XQ_ P2BUF G NEXTASG 0 
IRP$L_XQ" SETUP G NI_CTR_PROTYP 2 

IRP$L_XQ_ SHR G NI-CTR_READ = 

IRP$L_XQ-SYSBUF G NI gre REPLY s 

IRP$L_XQ-UPADR G NMASC_ACC_EXC = 

IRP$L_XQ-USERBUF G NMASC_ACC_LIM s 

IRPSM_ CHAINED s NMASC_ACC"SHR z 

IRPSM_ COMPLX = NMASC-CTCIR_BRC = 

IRPS$M_D1AGBUF s NMASC_CTCIR_BSN s 

IRP$Q"-STATION z NMASC_CTCIR_DBR s 

IRP$V~ CHAINED = WAASE-CTCIR DBS 7 

IRP$V_D1AGBUF s NMA SaEIC IR AE = 

IRP$V~ FUNC s NMASC-CTCIR-UBU = 

IRPSW_BCNT = NMASC_CTLIN-BID 2 

IRPSW_BOF F s NMASC-CTLIN_BRC = 

IRPSW_ CHAN s NMASC-CTLIN_BS1 s 
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NMASC_CTLIN_BSM = P BB SPARE 
NRASC“CTLINBSN : POB-B-TYPE 
NMASC_CTLIN-CDC = P2B_C_LENGTH 
NMASC“CTLIN-DBR 2 peB-L Bur FER 
NRASC“CTLIN-DBS = o8-L -POINTER 
NRASC“CTLIN-LBE = POB-T-DATA 
NRASC“CTLIN-MBL - POB-W"SIZE 
NMASC“CTLIN-MBS = p = 
NMASC_CTLIN_MBY = pi, . 
NMASC-CTLIN-MSN : Ps = 09008 
NAASC_CTLIN_OVR = PCBSL_JIB = U 
MUASCICTLINGREL . PCBSL-PID : 10¢ 
NMASC_CTLIN_SBU = CBSL_STS = 
NAASCICTLINGSFL = CBSG"PRIV 2 
NMASC_CTLIN_UBU = _—e = 
NAASC— _CTLIN_UFD = YAD G 
NMASC_CTLIN_ ZER = PHYADD1 G 
NAASC “LINCN_LOO ad PHYADD G 
NAASC =LINCN_NOR = PHYADD G 
NAASC~LINAC"CAL = PHYADD4 6 
NMASC_LINMC_CLR = PHYADDS G 
NAASC_LINMC_SIF = POKE_USER 03 
NMASCULINAC "SLT 2 $_TPL 2 
NMASC“LINPR-NI = PRS-SID_TYP730 . 
NAASC"LINPR~PO! = PRS~SID-TYP750 = 
NAASCPCCI_AST = PRS-S1D-TYP780 2 
NAASC~PCLI-ACC = PRS-SID-TYP790 : 
$C“PCLI“BFN : PRS-SID-TYPUVI z 
NMASC_PCLI_8S7 = PRS_SID_TYPUV2 s 
NAASC_PCLI_BUS s PRA_B_FCAG 
NRASC~PCLI~CON = PRR-FCG_M_CHECK = 
NAASC"PCLI~CRC : PRA-FLG_M~ INVALID : 
NMASC"PCLI~DCH : PRA-FLG-M~MAX = 
SC~PCLI“DES = “FLG“A-RIN s 
NAASC_PCLI_HBO = PRA_FLG_V_CDB = 
NMASC"PCLI~HWA = PRA-FLG-V~ INVALID = 
NAASC~PCLI-MCA z PRA-FLG-V~MAX : 
NAASCPCLI-ALT s PRA-FLG-V-RIN = 90000000 
NAASC~PCLI~PAD . PRM~OF F -M~VALUE = Q00003FF 
NAASC"PCLI~PHA = PRR~OFF -M“WIDTH = 0000F C00 
NAASC~PCLI~PRE = PRM” OF F~S~ VALUE 2 : 00008 
$C~PCLI~PRO : PRA-OFF~S~WIDTH = 00000006 
NMASC-PCLI-PTY : PRM~OF F-V-VALUE = 00000000 
$C~STATE_OFF : PRA-OF F-V~WIDTH = 9000000A 
NAASC~STATE~ON : PRA-TYP"A™ CODE = QO000F FF 
NAASA-CNT_COU = PRA-TYP"R-STRING = 00001000 
NAASACNT~ 2 PRA-TYP"V~STRING = 9000000¢ 
AAS” CNT" TYP z PRA-W_OFF 1000000 
NMASV_CNT_MAP = U_TYPE 000000 ie 
NMASV _CNT_WID = PRVSV_PHY_I0 = 00 00001 ‘ 
NO. SHF 03 PTESS PFN = 9000¢ D1 
ORBSB_FLAGS = QNA_IATR DOOOISFF RG 83 
L- OWNER = KT HO000CB3 R 
ORBSAT PROT_ 16 = RCVLIST 0000000 6 
ORES. PROT™ s RCV ue! T1 YOOOO00E G 
pI : RCV_C_LENGTH 0000000¢ 6 
P2 = RCV_DSC_M_CHAIN = 00004000 G 
| 
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Symbol table 
RCV_DSC_M_VALID = ¢ BWOR.T_DATA 
RCV-DSC-S_CHAIN = g RWDR~U~S1ZE ee 
RCV-DSC"S_VALID = G RWoR ey IY 13 ve 
RCV-DSC-V-CHAIN r ¢ SAV PUT ee 0050251D 
RCV_DSC-V-VALID = 3 SCHEGL PCB nae 09 
I RG 8 SCHSIOUNLOCK eenreeee § x 00 
REVFLG 6 SCHED_FORK 99 1646 RG oo 
RCV-FLG_M_ERR : 6 SCHED “FORKC 1644 RG 
REVTFLECVTERA. : G atte SYSTEMID eeeeeeee x ei 
REV-FLOCV LAS . OF 6G SENSEMODE FDT FE RG 
RCV-KCCENCTA . C SETMODE FBT 9E RG 4 
mev-ereeen r OCA RG = 03 SETUP_ERR SER 99 
mev-Sis ns 02 G SETUP “MODE 0 1364 R 0 99 
REV TSTSCRCOISE AR : G SET _DESAD 988 R 3 4 
REVSTSTRTERR . G SET“RULTI 009880 R «O03 90 
REVS TS CATES : G SET“MULTIN 000860 R 05 
REVS TS“ATFRAME. = G SET" PHYAD 900 DR 03 4 
RCV_STS_M_FRAME = G SET-PHYAD 9 ; 00 
REVS TSCATOVE . G SHR~B-TYPE 000000A ¢ 00 
RCV-STSoACRLE : G SHR~C~LENGTH 0000024 G 00 
REVS ISCRCRUNT . G SHR~C" QUEUES = 00000002 00 
RCW STS “RTSHOR . G SHR-DEF 000042F R 03 00 
RCV TSTSTSTRLEN. . G SHR-G_ DEST 2 G OO 
REV ~STScenCREE . G SHR-L-PID OO0C G oO 
RCV_STS_V_CRCERR - ¢ SHROL-PID ¢ 09 
RCV_STS_V_DISCARD = G SHR 08 G 00 
REVS TSuV"ESE . G SHR-Q- QUEUES G Oo 
REVS TSCVFRARE ° G SHR_Q_RCVMSG G OO 
REVTSTScvUneTe : G SHR-Q-RCVREQ G Oo 
REVSTScV-OVE . G SHR-STS_M_INITED : ¢ 904 
RCV_STS_V_RLEN s 6 SHR STS V_INI TED at 0 Oy 
RCV"STS_V_RUNT = : ee ¢ 09 
RCV~STS-V-SHORT : G SHRU_CHAN ¢ 00 
REV UASOR G SHR-W~SIZE G on 
CvUrFEAG G SHUT ~ R 03 4 
REV"UnLENS G SHUTDOWN RG 0 4 
REV-UnLEN G SHUTDOWN_PROTYP RG 0 oo 
REVTUnS TS 6 SHUTDOWN” QNA RG 0 p's 
RCV"-W" STS S . Siu # 5 00 
Menor inenere R SQUEEZ MULTI R 03 
READ-LINc_CTR a 0 Sue y ‘ 3 
=e = SS$-ACCVIO 2 
a avant -egLTA RG 0 SS$~BADPAR = ps 
RES MULTI R 55$ BUF FEROVE 2 oo 
RETORY Ip R SS$- COMMHARD s 
a iurke R SSS"CTRLERR = 
RETURNS ' RG SS$_DATACHE CK = 
RHON B-SPARE $S$-DATAOVERUN s 

-§-? $$$~DEVALLOC z 
RHDATC"DATA = SS$_DEVINACT = 
ROR C"PENG SS$~DEVOF FLINE z 
RMDRTGTDEST SSS_DEVREQERR 2 
RHR Gnome SSS" DISCONNECT : 
RHORTC "BUFFER $S$_DUPUNIT s 
RHDR-L-DATA SSS" ENDOF FILE 
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SSS$_EXQUOTA 


TOE -LENET 
SNGL 


QE 

UCB TOEVCLASS 
BS$8_DEVTYPE 

UCBs ~DIPL 


=F IPL 
UCBs xQ ~Ace 


UCBSC~XQ"LENGTH 
UCBS$C~ XQ" QUEUES 
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a ac 


RG 


DOAQGAQAAAIAIGAIAAGAAGCA 


a 


03 


o-1ae-13 
“SEP-19 


UCBSC_XQ_SETPRE 
UCBSC" XQ" SHRPRA 


08 
pevce AR 


B 
UCBS$V_XQ_INITED 
UCBS$V>xQ- N+ tee 
UCBSV"XQ"PROTYP 
nit XQ"RESTART 


o 
UCBSV~ XQ" SHARE 
UCBSv~ XQ"STACK 
UCBSV>XQ"START 


8% 00: 


24 
:2 


9: 
0: 
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1 G 
BS 6G 
0018C G 
180 G 
00000184 G 
000001 G 
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G 
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G 
G 
G 
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\ 6 
G 
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xQ_CSR_M = 8 0 G 

xXQ"CSR_M_ SANITY = 4 G 

XQ-CSR-M_XC = 1 G 

XQ-CSR_M_XMTINT = G 

XQ—-CSR_M_XMT INV = 10 G 

XQ"-CSR_V_CAR 2 D G 

XQ"-CSR-V_ELOOP = 9 G 

xQ"-CSR-V_ERR = ; G 

xQ"-CSR_V_ILOOP = G 

XQ"CSR_V_INTENA = G 

XQ"-CSR_V_NXM = 000 G 

xQ_CSR_V_RCVENA = 98 $ G 

XQ"-CSR-V-RCVINT = G 

xQ-CSR_V_RCVINV = 00000005 6G 

XQ-CSR_V_RESET 2 BO08 1 G 

XQ-CSR_V_RROM = 00 . 3G 

XQ-CSR_V_SANITY = QO00000A G 

XQ_CSR_V_XCAB = 0000000C 6G 

XQ_CSR_V_XMTINT = QOOOOOOF G 

XQ"CSR-V"XMT INV = 00000004 6G 

xQ-C_ABDRCV = aa tes4 

xQ_-C_CNTSIZ = 0000000 

xQ_C_CRC = 00000004 

XQ_C_HEADER = 0000000 

xQ-C-STPRO = 0000066 

xQ-ERD QOOO2ACA RG 03 

KQ"FC_V_CANCEL = 00000004 6G 

XQ"F C"V~CHMODE = 00000006 G 

XQ"FC"V"INIT = 00000000 6G 

XQ_FC_V_RECV = 4 4 4 G 

XQ"FC_V_RESTART = 00000005 G 

XQ"-FC"V"STOP = 00000003 6G 

XQ_FC_V_XMIT = 44 4 G 

XQ" FURCTABLE 00000038 R 03 

XQ"SOFT_M_POWER = 00000002 6G 

XQ" SOF T-M_ TIMEOUT = 00000001 6G 

XQ" SOF T“V"POWER = 00000001 G 

XQ" SOF TV TIMEOUT = 00000000 G 

_sS_ = 00000000 
tere eeswreceence cca + 
! ; Psect synopsis H 

PSECT r.ame Allocation PSECT No. Attributes 

i 90000000 ( ») 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

Her anon Ses Tie) Bis ee ie Bi 

> e 
$8311 scoRi ten 00002ACA (1098 » 05 ¢ $:} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
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toma wreance enmeecneece woo eaeece } 


! Performance indicators ! 


bere renee ee mee m merece oe ee =} 


Phase Page faults CPU Time Elapsed Time 
Initialization 100 0: 8: 8.93 8:00: 1-60 
pomene processing 1483 B: : e. ; HE 6-59 
Symbol table sort 0 0: 8; 783 0:00:07.43 
Pass 2 48 8: : 2°18 b: 4:87.88 
Symbol table output :00: 8: 7:00:00. 
Psect synopsis output 0:00:00.01 0:00:00.01 
Cross-reference output 0:00: 3:5 B08: 3 be 
Assembler run totals 2604 00:00:40.2 0:03:20.06 


The working set Limit was 2900 pages. 

548759 bytes (1072 pages) of virtual memory were used to buffer the intermediate gs. 

There were 250 pages of symboi table space allocated to hold 4247 non-local and 632 local symbols. 
278 source lines were read ir Pass 1, producing 64 object records in Pass 2 

103 pages of virtual memory were used to define 92 macros. 


¢wreesscemenwcer cw ecosecac econ d 


! ; Macro Library statistics : 


Macro library name Macros defined 
“B355sbuale: ts FSS OB/2U16 ALB: -MLB;1 4) 
55$0UA18:CSYSLIBJSTARLET.MLB; 3 14 
TOTAcS (all Libraries) 57 


4109 GETS were required to define 57 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XQDRIVER/OBJ=OBJ$:XQDRIVER MSRC$:XQDRIVER/UPDATE=(BUGS$: XQDRI VER) +EXECMLS$/L1B+SHRLIBS:NMALIBRY/LIB 
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